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Foreword 

Computers seem to get a lot of bad press these days. I 'II admit that they often come equipped with a maze 
of cable assemblies and the operator manuals read like War and Peacein Swahili. But aside from all the 
publicity, computers are not so bad. They can do amazing feats of magiclikeplayMunch Man, Multiplan, 
or beat IRS, and aside from eating a disk or tape now and then, they are relatively easy to live with. 
Computers make great companions! 

Whether you arejust learning Basic, or arewell on your way to understanding programming, this book 
off ers you theopportunity to get to know your 99/4A. Oft en thebest sol utionstoyour programming needs 
are learned by studying how others havesolved their own programming problems. For the most part, this 
book is not a Basic tutorial, but offers an opportunity to learn whileexploring finished programs, as well 
as add to your software library. 

The various submissions included in this book stretch from games to very handy programing utilities in 
assembly I anguage. You will find that themajority of these programs and tipsrequireExt ended Basic and 
some additional hardware, such as the 32K expansion memory. The hardware requirements for each 
program are printed at the beginning of each program description. 
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Tutorial 1 : Basic programming 

Tutorial 1, Part I 

Thetutorial will cover what I call a data manipulation program. Thistypeof program will allow its user 
to enter information, change it if desired, savethedatatoafile, and reload it for later use. This is a type 
of program that businesses frequently use. But dont let that stop you from reading on! Thetechniques 
described here can be used by anybody who has data to store, whether it's data from a scientific 
experiment or a list of monthly expenses. 

Some things covered here are: files with cassette, structured programming, and linked lists. To keep this 
discussion general, the program will be written in standard consoleBasic (i.e., not Extended) and usea 
cassette recorder to store the data. Part I will deal with defining thedata the program will manipulate, 
how it is stored in the file, and how to get it back. 

The first thing that a programmer should do before beginning to write a program is to decide what the 
program should accomplish and how it isto be done. This is very important, because you should know 
wherea journey will end beforeit is begun. How el sewi 1 1 you know when you Vefinished? Describing what 
a program should do is also useful because other people who might use it can examine the design. 
Suggestions can be made whi le changes are easy to make, before the program is written. 

Theprogramtobedescribedin this tutorial is a mailing address program. When it is finished, it will be 
ableto do the following: 

1. Allow the user to keep an alphabetical list of addresses. 

2. Be able to find an address using only a name. 

3. Scan the addresses in the list. 

4. Make changes in any listed address. 

5. Keep all information on a cassette file. 

6. Keep thefol lowi ng i nformation for each address: name, two I i nes of street address, city, state, zi p 
code, and phone number 

First we'll deal with how thedata should be stored in memory and on file. 
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Now that we know what data will bestored for each address in the list, we need to decide how to storethat 
information in memory. The best method istouseatwo-dimensional array. I maginea two-dimensional 
array as a large blackboard that has rows and columns marked on it. I n our case, each row on the 
blackboard will be used by one of the addresses to store the information. Each column on the row, then, 
is the location where a part of each address will bestored. For example, the first column of the row will 
contai n thename, thesecond col umn wi 1 1 contai n thefi rst I i neof theaddress, thethi rd col umn thesecond 
line of the address, the fourth column the city, the fifth column the state, the sixth column the zip code, 
and the last column will contain the phone number. 

Within the Basic program, it is easy to access a particular pieceof information using a two-dimensional 
array. For example, if we want to print the phone number of the fifth address on thelist, we can simply 
use the code: 

PRINT ADDR$ (5,7) 

A two-dimensional array hasanamelikeany other variable. It isfol lowed by two numbers (thusthename 
two-dimensional) in parentheses. Thefi rst number is the row to access, thesecond in the column within 
that row. From there on, the information located at the requested row and column is handled I ike any 
other variable in Basic. 

In our program, all address information will bestored in the array named ADDR$. In this first draft of 
the program, it will perform the following tasks: 

1. Allow us to enter information into the mailing address array ADDR$. 

2. Save that information into a file. 

3. Read that information back into memory from the file. 

4. Redisplay the information. 

The program will become more complex as we go along. 
This isa listing of the controlling part of the program: 

100 REM A SIMPLE MAILING ADDRESS PROGRAM 

BY MIKE SCHULTZ 
110 REM WRITTEN 7/1/1983 
12 REM CRACKING THE 99/4A 
130 OPTION BASE 1 
140 DIM ADDR$ (20, 7) 
150 CALL CLEAR 
160 LSTADR=0 
170 GOSUB 220 
180 GOSUB 390 
190 GOSUB 500 
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200 GOSUB 610 
210 END 

Notice thefour GOSUBs. They correspond to thefour tasks that I described above. Notice also the DIM 
statement. It tells BasicthatthearrayADDR$isgoing to have 20 lines and 7 columns. Weknow that each 
line is going to be used for a separate address. Finally, notice the vari able LSTADR. At any point in the 
program this variable will contain the last rowof ADDR$ that stores useful information. The program 
will change LSTADR whenever a new address is added to the list. This isthesubroutinethat will put 
information in the array. Notethat this isnt going to be the final version of this subroutine. 

220 REM THIS ROUTINE ACCEPTS NAMES AND A 

DDRS 

230 INPUT "ANOTHER ADDRESS? " : Q$ 

240 IF Q$="Y" THEN 260 

250 RETURN 

2 60 LSTADR=LSTADR+1 

270 GOSUB 290 

280 GOTO 230 

This routine will continue to execute till the user answers the question 'ANOTHER ADDRESS?" by 
anything other than Y. This is not necessarily the best way to exit such a loop, but since it will be 
rewritten later, it will do for now. (It would be better if the program continued when Y is entered, 
returned to the control ling routine when an N isentered, and re-asked the question when anything else 
is entered.) 

Noticethat LSTADR is increased by onewhen another row isadded to the list. The routine located at line 
290 asks the user for the information to be stored on the row: 

2 90 REM THIS ROUTINE ACCEPTS A SINGLE NA 

ME 

300 REM AND PLACES IT IN THE ROW INDICA 

TED BY "LSTADR" 



ADDR$ (LSTADR, 1) 
ADDR$ (LSTADR, 2) 

" :ADDR$ (LSTADR, 3) 
ADDR$ (LSTADR, 4) 



310 INPUT "NAME: 

320 INPUT "ADDR: 

330 INPUT "ADDR (2 

340 INPUT "CITY: 

350 INPUT "STATE: " :ADDR$ (LSTADR, 5) 

360 INPUT "ZIP: " :ADDR$ (LSTADR, 6) 

370 INPUT "PHONE: " :ADDR$ (LSTADR, 7 ) 

38 RETURN 

Notice how LSTADR is used. This routine assumes that the calling routine has correctly assigned 
LSTADR to the row wherethe information will bestored. Thel NPUT statements simply ask thecorrect 
questions and make sure that the data gets stored in thecorrect columns. When all the data isentered, 
answer N to the question ANOTHER ADDRESS. The control ling routine then calls the routine that 
writes the data to the cassette file. 
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Beforeweexami nethe routi nethat writes to thefi le, a few words about fi les i n general arenecessary. T he 
concept of a file is very similar to the files in a filing cabinet. I nside a file folder are pieces of paper 
contai ning information that wewish to save(such as addresses). Wewant to savetheinformation because 
it may prove useful or necessary. 

In a computer file, the equivalent of the pieces of paper in the file are called records. The information 
placed in the record is converted to electrical impulses instead of ink marks on paper. The computer is 
capable of creating these records on the cassette tape the same way that we are capable of recording 
information on paper. The computer is also capable of reading this information back into its memory. 

Records have a length — the number of characters (bytes) that can be stored in each. In general, records 
have either a fixed or variable size (just likepaper), but cassettes arevery si mpledevices and are limited 
to a fixed length record. Disk drives aremorecomplicatedandthuscan havevariablelength records.This 
is not a major problem with cassettes, however, asthedifference between a fixed or variable length record 
is basically unimportant. 

Inapaperfile, peoplecan randomlyflipthrough thefi lelookingfor a particular pieceof paper. Thereare 
random files that the computer can use, but these files are available only on disk drives. The other way 
for the computer to examine the records is sequentially; that is, to start with the first record on thefi le, 
do something (or nothing) with thedata, and then proceed to the next record on thefi I e. For the purpose 
of our program (since wewant to read every record into memory), sequential files will be fine. 

Let's look at the routine to write our address array to the cassette file. 

390 REM THIS ROUTINE SAVES THE ADDRESS T 

FILE 

400 OPEN #1 : "CS1", SEQUENTIAL, INTERNAL, OU 

TPUT, FIXED 192 

410 PRINT #1:LSTADR 

420 FOR 1=1 TO LSTADR 

430 FOR J=l TO 6 

440 PRINT #1 :ADDR$ (I, J) , 

450 NEXT J 

460 PRINT #1 :ADDR$ (I, 7) 

470 NEXT I 

480 CLOSE #1 

4 90 RETURN 

This routi nedeserves careful examination. First, noticetheOP EN statement. Thecassettefile is opened 
as sequential becausethat is the only type of filethat acassettecan handle. It is opened as INTERNAL 
because this file will be read by the program again (but at a later time). The INTERNAL designation 
makes reading the information back into memory a lot easier. 

ThefileisopenedasOUTPUT so that the user of the program will beaskedtopresstheRECORD switch 
on the recorder. 
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Thefile is opened as FIXED becausethecassettecan handleonly FIXED length records. It is set up with 
192-byte records becausethat isthe maximum record for the cassette and will handleall situations. Line 
410 writes the val ueof L STADR to thefi le, on a record al I by itself. T his wi 1 1 let the program know when 
it is run later how many records of actual information ADDR$ contained on this run. 

The rest of the routine writes the information of the array ADDR$ to the cassette file, one record 
contai ni ng one array row. Online 440, the comma at the end of the I i ne is a signal from the program to 
Basic that it is not through writing the record. It isthePRI NT statement on I ine460 that actually signals 
the end of the record. After this line, Basic will advance the cassette tape to the next record. 

N oticethat the program is not maki ng any attempt to separatethei nformation i n the record by i nserti ng 
spaces. Opening thefi leas INTERNAL madethis unnecessary. Basic will put the needed information in 
the file so as to separate the columns during input. After writing all the records, theCLOSE command 
al lows us to tel I the user to turn off the cassette recorder. 

How isthe information read back into memory later? It is simply the reverse of the output process. 

500 REM THIS ROUTINE READS THE ADDRESSES 

FROM FILE 
510 OPEN #1 : "CS1", SEQUENTIAL, INTERNAL, IN 
PUT , FIXED 192 
520 INPUT #1:LSTADR 
530 FOR 1=1 TO LSTADR 
540 FOR J=l TO 6 
550 INPUT #1:ADDR$ (I, J) , 
560 NEXT J 

570 INPUT #1 :ADDR$ (I, 7) 
580 NEXT I 
590 CLOSE #1 
60 RETURN 

Notice that theOPEN statement describes the filein essentially the same way asin theoutput routine, 
except that I N P UT is used. 

The val ueof LSTADR is read from the file first so that the program can know just how many lines of 
address information was stored on the file. 

Next, the information is read from each record back into the array ADDR$. 

And finally, here is a simple routine to display the information that has been read in from the file. 
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610 REM THIS ROUTINE PRINTS THE INFORMAT 

ION IN ADDR$ 

620 FOR 1=1 TO LSTADR 

630 PRINT "NAME: ";ADDR$(I,1) 

64 PRINT "ADDR: " ; ADDR$ (I, 2 ) 

650 IF ADDRS (I, 3)="" THEN 670 

6 60 PRINT " ";ADDR$ (I, 3) 

670 PRINT "CITY: " ; ADDR$ (I, 4 ) 

680 PRINT "STATE: " ; ADDR$ ( I, 5) ; " ZIP: "; 

ADDRS (1,6) 

690 PRINT "PHONE: " ; ADDR$ (I, 7 ) 

700 PRINT 

710 NEXT I 

72 RETURN 

This is not a complete program. You'll notice that the program is not very flexible. There is no way to 
change anybody's address. The addresses are not in alphabetical order. Finally, the routine that prints 
the addresses to the screen prints all of the addresses instead of all owing the user to be selective. These 
(and other problems) will be fixed later in thistutorial. 



15 



TEXAS INSTRUMENTS 
HOME COMPUTER 



Tutorial 1, Part II. Structured programming 

Now we'll discuss more about the overall planning of aprogramandhowtomakeamoreflexiblecontrol 
routine. 

You may recall that there arefour tasks the mailing address will do: 1) allow us to enter the addresses to 
bekept by the program; 2) savethat information toafile; 3) readthesaved information from thefile back 
into memory; 4) search the addresses stored in memory for a particular name. The last section presented 
simple versions of solutions to all these tasks in theformof Basic subroutines. This concept of breaking 
a job into tasks is worth a closer look as it is a major cornerstone for modern programming. 

This technique, called modular programming, actually has roots in our everyday life. When we are 
presented with something to be done, it is rarely a single simple problem, although we usually dont 
realize it. Takegoingtothestoreto buy milk for example. This is in itself not asingletask, but at least 
two: 1) going to the store and 2) buying mi Ik. Even thegoingtothestoretaskisnot asimpleone. It itself 
is made up of many subproblems involved with locating the car, getting it started, and so on, not to 
mention the many problems encountered while traveling to the location, and finally locating a parking 
place. And yet, people solve these types of problems regularly without conscious thought. 

The same techniques can be applied to programming. When we havea problem whose solution we would 
I ike to automate on a computer, we must first know how we would solve that problem ourselves. If we 
dont know that, then we must begin by breaking the problem down into smaller pieces. Every time a 
problem is broken into pieces we must ask ourselves if we know how to solvethispieceof the problem in 
Basic. Iftheanswer is yes, then this piece is small enough. If the answer is no, then we must try and split 
the problem some more. 

Whileweareperformingthisdivideand conquer process, it is helpful to know threethings for each piece 
of the puzzle. 1) What will haveoccurredbeforeweget to this piece. 2) What will this piecedo to help solve 
the problem. 3) What will thestateof things be after this piece has been performed. 

These things are very important to know because they can point out problems in the solution. For 
example, lookingatthewayonepieceofthesolution left things and howthenextpieceexpectsthings may 
show us that the first piece isnt doing the whole job for us. 

Now at this point you may be scratching your head, asking what in the world I 'm talking about, so let's 
relate it back to the store example. The piece we'll take for the example is the actual buying of the mi Ik. 
We know several things about what weVedoneat this point. Weknow that wehavesuccessfully completed 
traveling to the store. We also know that we have located the mi Ik, picked it up, andgonetothecheckout 
line. In this pieceof the problem wethen pay for the mi Ik, andleavethestore. Wearenowinthecar ready 
to go home. 

This may seem to bea I argeamount of unnecessary work to some people, but my experiencehas been that 
learning programmers get the most confused and frustrated when they are trying to writecode and they 
have no idea wherein thesolution they are, or what has happened in the program before this point. 
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Now, howdoesthisrelatetoBasic?Asl said earlier, each piece of the problem will eventually become a 
Basic subroutine. The piece is entered via aGOSUB statement, does its job, and returns to the calling 
routine (piece) via a RETURN command. Since a particular subroutine may be itself made up of 
i ndi vidual pieces, it cal Is the subrouti nes for theses pieces for them to do thei r job. 

So, subrouti nes can call other subroutines, which in turn can do the same. This is all well and good, but 
somewhere there has to be a limit to all this. There has to be a routine that cal Is the major subroutines. 
This istheroutinethatisentered first when theuserofthe program types RUN and should bethe routine 
that returns control of the computer back to the user. This is called the main program or controlling 
routine. 

There are many techniques used for making controlling routines. The technique used depends on the 
problem to besolved. A purely mathematical problem would requirethe program to perhaps ask for some 
in put from the user and then begi n calculating. This is essential lythetypeof control I ingroutinethat our 
mail address program currently has. As you can see, it is not well suited for this type of program. 

For the data manipulation type of problem we are considering, the subrouti nes act as services that the 
whole program can perform for the user. Thecontrol ling routine's job, then, is to ask the user how it may 
be of service and cal I i nto action theappropriatesubroutineto do thejob. Thus, thistypeof program does 
not solve one specific problem (such as find J oe Cool's phone number for me) but many problems. I n 
essence, the user of the program is still in charge of solving the problem and the program is providing 
tools for the solution. 

The kind of controlling routine that I am going to show here is called a menu-driven program. That is, 
it presents the user with a list of optionsthat they may chose at thisti me, takes the request from the user, 
and cal Is the subroutine to do thejob. When the subroutine has finished, it returns to the controlling 
routine, which then askstheuser what they would I ike next. Eventually, the user will befinished with the 
program and tell it to quit. 

Our mail address programs will do thefollowing things: 

1. Si nee the program must have the addresses loaded into memory before it is any good, it will call 
thesubroutinethat readsthefilefirst.J ust in casetheuser wants to create a new address file, it 
will ask about this before cal ling the read file subroutine. 

2. Next, it will ask the user if they want to modify addresses in the list, search the list for a name, 
or quit. When the user has made a valid choice, the appropriate routine is called. After the 
subroutine returns, the control ling routine asks what's next? When the user finally says to quit, 
thecontrol I i ng routi necal Isthesubrouti neto writethefi le(i n caseany changes were madeto the 
addresses) and then terminate. 

Now, our subroutines from part I wont do all of these things, but that's okay. They do enough for us to 
demonstrate that the control ling routine works properly. Later we'll complete the subrouti nes. 
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H ere is the control I i ng routi ne. N otice the I i ne numbers. T he routi ne can be typed over the top of the 
existing control routine to replace it. 

100 REM A SIMPLE MAILING ADDRESS PROGRAM 

BY MIKE SCHULTZ 
110 REM WRITTEN 7/30/1983 
12 REM CRACKING THE 99/4A 
130 OPTION BASE 1 
140 DIM ADDR$ (20, 7) 
150 CALL CLEAR 
155 PRINT " THE MAILING LIST MANAGER": 



156 INPUT "READ IN LIST FROM TAPE? " : Q$ 

157 IF Q$="Y" THEN 165 

158 IF Q$o"N" THEN 156 
160 LSTADR=0 

162 GOTO 170 
165 GOSUB 500 

The code above displays a friendly message to let the user know that the program is running and then 
asks about reading in the addresses from a data file. It takes action based on the user's response. 

17 CALL CLEAR 

171 PRINT " THE MAILING LIST MANAGER" 

172 PRINT : :" M - MODIFY THE LIST": :" 

S - SEARCH THE LIST": :" Q - QUIT THE MA 
NAGER" : : : : "SELECT A FUNCTION:" 

173 CALL KEY(0,F, S) 

174 IF S=0 THEN 173 

175 CALL HCHAR(23,22,F) 

176 C=POS ("QMS",CHR$ (F) , 1) 

177 IF C>0 THEN 180 

178 CALL SOUND (500,220, 0) 

179 GOTO 173 

Thiscodedispl ays thefunctionsthat the user can select and then waits for the user to press the letter of 
thefunction desired (lines 173 and 174). That letter is then redisplayed for the user (in line 175). Thecode 
at line 176 is a very nice way in Basic of deciding if the letter selected is a valid one. Notice that "QMS" 
areall lettersoftheval id functions. ThePOS command will return thenumber that describestheselected 
letter's position inthe"QMS"list;thisnumber will beplacedin thevariableC.Thusittellsusiftheletter 
pressed was the first letter in "QMS"(Q), or the second (M), or thethird(S). If the letter selected is none 
of these, then POS wi 1 1 havethe val ue and thecontrol I i ng program can sound an error tone and ask for 
a correct command. 

180 IF C>1 THEN 190 
185 GOSUB 390 

18 6 END 
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This code is entered when the first letter in the list of valid commands is entered (Q for Quit). The 
subroutine to write the file is called. Then the program terminates. 

190 ON C-l GOSUB 220,610 

191 GOTO 17 

And, finally, this code calls the appropriate subroutine for the other functions. Notice that the variable 
C still has the position of theselected function's letter from the "QMS" list in the POS command. TheON 
GOSUB command uses the value following ON to pick the correct line number from the list following 
GOSUB. A normal GOSUB is then performed to that line number. In our program, this command goes 
to the correct subroutine for the function selected. 

When theroutinefinishes (executes a RETURN ), thenext lineof code executed is 191. This linetakes us 
back to the code that displays the menu. 

715 INPUT "LIST COMPLETE: " : Q$ 

This lineof code makes the search routine wait after it has displayed the list before returning to the 
controlling routine, which will then quickly clear thescreen. This will give the user a chance to seethe 
display before it disappears. 

Thesubroutinedoesnt have to do anything but print a message that it has been entered and return to 
the menu. Also noticethattheorder in which theselection letters are displayed on the menu doesnt have 
to correspond with the order in which they are listed in the POS command. 
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Tutorial 1, Part III. Linked lists 

Now I will discuss how to sort (alphabetize) the names. Therearea number of ways of doing this and I 
considered many beforesettling on oneas the best for this series. It is a little more complicated to explain 
than most, but will make a better program in the long run. 

It also meansthatsomemajor changes will haveto be made intherest of theprogram as it was developed 
in previous sections, so the entire program is reproduced hereagain. 

M ost of the methods for sorti ng data i nvol vetheprogram fi rst accepti ng al I thedata, then performi ng the 
sort. On small computerssuchasthe99/4A,thiscan mean a wait of several minutes to several hours.The 
method described here, however, doesn't really sort the names so much as it keeps the names in an 
alphabetical list as they are entered. This will mean a slight delay between entering names into the list, 
but not enough to be a problem. 

This method is called a linked list. It works like this: along with the information that is kept for each 
entry, the location within the list of the next person (in alphabetical order) is also kept. 

In the previous version of theprogram, every row of the array ADDR$ could bethought of as a line on a 
blackboard or piece of paper (although it is really in memory) containing a person's name. Now, when 
another name needs to be inserted into the list of names, if the list is already in alphabetical order, we 
simply search down the list until we find the proper place, and insert the new entry. The only problem 
with this isthat now we must move all lines below wherethenew entry is inserted down a line on the 
i magi nary bl ackboard or paper. M ovi ng data around i n thecomputer is I i kecopyi ng the I i nes by hand for 
us; it's a very slow process. (I n fact it is the very reason that most of the other sorting methods areso 
slow.) So how are linked lists better? 

They'rebetter becausewedont haveto movedata around. I nstead each line, along with theper son 'sname 
and address, contains the line number of the "next person" (alphabetically) on the list. When we add a 
person tothelist, we put their information on thenext availablelineon the blackboard. Wethen find the 
name of the person who will comejust before the new entry in the list, and change their "next person" 
col umn to contai n the new entry's I i ne number. Si mi I arly, wefi nd the name of the person that wi 1 1 fol low 
the new entry in the list, and pi acethe line number of thenext person into the new entry's "next person" 
column. 

Let us see an example of this. Below is a short list of names. The leftmost column is the line number of 
the entry, the middle col umn is the person's name, and the last column is the line number of the name 
following this entry in alphabetical order. 
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LineNumber Name Next 



1 


J ohn 


2 


2 


Sam 





3 






4 


Ann 


1 


5 


Mike 


3 



In this example, Ann on Iine4 isthefirst person in the list. (We'll talk later about how we knew this.) If 
we look at the "next" column, we find that J ohn in line 1 is next, then Mike on line 5, and finally Sam on 
line 2. 

We knew that Sam waslast because when we were building the list, wemadesurethatthelast person on 
the list had a in their next column. 

When we write a program that uses a linked list, we also have to keep a variable that contains the line 
number of the first name on the list. 

Of course, we can no longer search the list by starting at the top and working down to the bottom. Now 
we must follow the links given by the "next" column until we find the name that we are looking for. 

Now, let'sexaminehowanew person gets put into the list. First we must find a free line in the list. Since 
we can delete items from the list, afreelinecan occur anywhere. (Wewill examinein detail exactly how 
wefindafreelinein a moment.) For an example we will usethelist above, which has line 3 free. Now let's 
placea new entry for thenamej ill (just pulled it out of my hat) into the list. Thenameis placed on the 
free line; then we must place the line into the I inked list. 

We do this by scanning the list and finding the I inecontainingtheentry which comes alphabetically just 
before the one we wish to insert. This is relatively easy; we just start at the beginning of the list and 
compare it to the name we wish to insert. If it isbeforethenew name (alphabetically) then we move on 
to the next name. When we find the name that comes after the new entry, the number of that line goes 
into the "next" column of the new entry, and the "next" column of the previous line receives the line 
number of the new entry. 

In our example, this means that we start at Ann (thefirst person), go next to J ohn, then to Mike, before 
we get to Sam. Thenamej ill will come after Mike and beforej ohn. 

To perform the actual insertion, it isfirst necessary to get a "next person" number for the new entry; for 
thisusethelinenumberfromthe"next"columnoftheentryjust beforethenewonein alphabetical order. 
This will cause the next person to come after the new entry, which is where we want it. Then all we need 
is a new "next person" number for the entry wejust took the number from. This number, of course, is the 
line number of the new entry. The insertion is now complete. 
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In the examplethat we have been using, this means that we would move the 3 from line5tolinel, and 
put 4 in its place on line 5. The result would look I ike this: 



OLD 

LineNumber Name 
1 



2 

3 
4 

5 



J ohn 
Sam 

Ann 
Mike 



Next 

2 



1 
3 





NEW 




LineNumber 


Name 


Next 


1 


J ohn 


3 


2 


Sam 





3 


Jill 


2 


4 


Ann 


1 


5 


Mike 


4 



When looking for free lines, we simply keep the free lines in a linked list, too. Wecan do this by keeping 
a separate variable contai ni ng the number of the fi rst free I i ne. T he fi rst free I i ne then has the number 
of the next free line in it's "next person" column. When an entry isdeleted, that line number must beadded 
to the list of free lines. The new free line becomes the first free line. To do this, the value of the variable 
contai ni ng thefi rst free line is put into the new free line's "next person" column. Thevariableforthefi rst 
free line then changes to the number of the new free line. 

Obviously, this is not a method that people use in real lifeto solve this kind of problem, but computers 
can easily follow the links in the list and make it appear to the user that the names are alphabetized in 
the more standard manner. 

Let's examine the program and see how this is done in Basic. 

100 REM A SIMPLE MAILING ADDRESS PROGRAM 

BY MIKE SCHULTZ 
110 REM WRITTEN 8/4/1983 
12 REM CRACKING THE 99/4A 
130 OPTION BASE 1 
140 DIM ADDRS (20, 7) ,NEXTA(20) 
150 MAXADR=2 
160 MODADR$="N" 
17 CALL CLEAR 
180 PRINT " THE MAILING LIST MANAGER": 



190 INPUT "READ IN OLD LIST FROM TAPE?": 

Q$ 

200 IF Q$="Y" THEN 260 

210 IF Q$o"N" THEN 190 

220 LSTADR=0 

230 FIRSTA=0 

240 FREE=0 

250 GOTO 270 

260 GOSUB 1510 

27 CALL CLEAR 

280 PRINT " THE MAILING LIST MANAGER" 
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290 PRINT : :" M - MODIFY THE LIST": :" 

S - SEARCH THE LIST": :" Q - QUIT THE MA 

NAGER" : : : : "SELECT A FUNCTION:" 

30 CALL KEY(0,F, S) 

310 IF S=0 THEN 300 

320 CALL HCHAR(23,22,F) 

330 C=POS ("QMS",CHR$ (F) , 1) 

340 IF C>0 THEN 370 

350 CALL SOUND (500, 220,0) 

3 60 GOTO 30 

370 IF C>1 THEN 410 

380 IF MODADR$="N" THEN 400 

390 GOSUB 1400 

400 END 

410 ON C-l GOSUB 430,1620 

42 GOTO 27 

Theprevi ous I i nesareessential lythecontrol I i ng routi nedescri bed i n thelast article, with afew additions. 
Lines 230 and240initializetwo new variables, Fl RSTA and FREE. These arethevariablesthat indicate 
the first lines in the lists of addresses and free lines. If there are no names on the list (a new list), then 
F I RSTA and FREE will have zero as their values. 

One other new addition to this code is the array NEXT A on line 140. It is a numeric array that contains 
the next person (or address) line number for each line in array ADDR$. 

439 REM THIS ROUTINE ACCEPTS NAMES AND A 

DDRS 

44 CALL CLEAR 

450 PRINT "MODIFY THE MAILING ADDRESSES" 

460 PRINT : :" A - ADD TO THE LIST" : :" 

M - MODIFY AN ADDRESS": :" D - DELETE AN 

ADDRESS": :" Q - RETURN TO MENU" 
470 PRINT : : : "SELECT FUNCTION:" 
480 CALL KEY(0,F, S) 
490 IF S=0 THEN 480 
50 CALL HCHAR(2 3,2 0,F) 
510 C=POS ("QAMD",CHR$ (F) , 1) 
520 IF C>0 THEN 550 
530 CALL SOUND(500, 220,0) 
540 GOTO 470 
550 IF C>1 THEN 570 
5 60 RETURN 

570 ON C-l GOSUB 590,730,960 
58 GOTO 44 

This is the menu routine for the code that modifies names on the mailing list. It follows the same ideas 
described in thelast section. From this menu, the user can enter commands to add a name to the list, 
modify an address on the list, or delete a name. 
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590 PRINT "ADD ADDRESS" 

600 IF FREE=0 THEN 640 

610 CURADR=FREE 

620 FREE=NEXTA(FREE) 

630 GOTO 690 

640 IF LSTADR<MAXADR THEN 670 

650 PRINT "SORRY, ADDRESS TABLE FULL" 

6 60 RETURN 

67 LSTADR=LSTADR+1 

68 CURADR=LSTADR 
690 GOSUB 1150 
700 GOSUB 1260 
710 MODADR$="Y" 
72 RETURN 

This routine handles the addition of a new name to the list. First it will find a line on which to pi ace the 
name If thereareno lines availablein the middleof the array (FREE=0), then LSTADR will be used to 
place the new entry on the line after the very last used row in the array. LSTADR is used to determine 
this row in much the same way it was used in the previous version of this program. 

If there is an available line from the middleof the array, then thenumber of that line will bein FREE. 
Note in line 620 the code for obtaining the next value for FREE. 

In either case, the line number of the available line is placed in the variable CURADR. Then the 
subrouti neat I i ne 1150 is cal led to get the i nformati on from the user for the new entry (except, of course, 
thenumber of thenext alphabetical I ine).Thissubroutinethen cal Istherouti neat 1260 topi acethename 
into the correct location in the linked list. 



730 


PRINT "MODIFY ADDRESS" 




740 


GOSUB 1800 




750 


IF CURADR>0 THEN 770 




760 


RETURN 




770 


PRINT " (l)NAME: " 


ADDR$ (CURADR, 


1) 


780 


PRINT " (2) ADDR: " 


ADDR$ (CURADR, 


2) 


790 


PRINT " (3) 


ADDR$ (CURADR, 


3) 


800 


PRINT " (4) CITY: " 


ADDR$ (CURADR, 


4) 


810 


PRINT " (5) STATE: " 


ADDR$ (CURADR, 


5) 


820 


PRINT " (6) ZIP: 


ADDR$ (CURADR, 


6) 


830 


PRINT " (7) PHONE: " 


ADDR$ (CURADR, 


7) 


840 


PRINT : "WHICH LINE TO CHANGE"; 




850 


INPUT I 




860 


IF K=0 + I>7 THEN 940 




870 


INPUT "NEW LINE: " :ADDR$ (CURADR, I 


880 


IF I>1 THEN 950 




890 


IF BACK1=0 THEN 920 




900 


NEXTA (BACK1 ) =NEXTA (CURADR) 




910 


GOTO 930 




920 


FIRSTA=NEXTA (CURAI 


3R) 
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930 GOSUB 1260 

94 MODADR$="Y" 

95 RETURN 

This routine allows the user to modify the information on aline. It calls the routine at 1800 to get from 
the user the name of the person whose address should be modified. This routine will search the list and 
return that person's line number in the variable CURADR. It will also, by the way, set the variable 
BACKltothelinenumber of person in thelist just before the line we wish to modify. 

Thissubroutinethen displaysthecurrent contents of theline, asksfor the part of the I ineto change, and 
allows the user to enter the new value (lines 770-870). 

Now all iswell unlesstheuser modifies the name, in which caseit may have changed position in thelist. 
P rogram I i ne880 checks for this and, if the name was changed by the user, then I i nes 890-930 essenti al ly 
remove the line from the linked list (without putting it on thelist of available lines) and then call the 
routine at 1260 again to search thelist and insert the line. 

960 REM THIS ROUTINE DELETES A NAME FROM 

THE LIST 
970 PRINT "DELETE ADDRESS" 
980 GOSUB 1800 
990 GOSUB 1700 

1000 INPUT "DELETE (Y/N) ? ":A$ 
1010 IF A$="Y" THEN 1040 
1020 IF A$o"N" THEN 1000 
1030 RETURN 

1040 IF BACK1=0 THEN 1070 
1050 NEXTA(BACK1)=NEXTA (CURADR) 
1060 GOTO 1080 
1070 FIRSTA=NEXTA (CURADR) 
1080 NEXTA (CURADR) =FREE 
10 90 FREE=CURADR 
1100 FOR 1=1 TO 7 
1110 ADDRS (CURADR, I) ="" 
1120 NEXT I 
1130 MODADR$="Y" 
114 RETURN 

This routine removes a name from thelist. The routine at program line 1800 is called again to ask the 
user for the nameof the person to be removed from the list. 1 1 then fi nds the line number they areon. The 
routine at 1700 is called to display the person 'si nf or mat ion so that the user can be sure of deleting the 
right person's entry. Finally the user is given one last chance to back out of thedelete in lines 1000-1030. 

If the user reallydoeswish to deletethe name and address, then the line number is placed on the free line 
I ist. After that, the information on the I ineisdeleted (it's completely gone, it's too I ate now to change your 
mind!). 
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1150 REM THIS ROUTINE ACCEPTS A SINGLE N 

AME 

1160 REM AND PLACES IT IN THE ROW INDICA 

TED BY "CURADR" 

:ADDR$ (CURADR, 1) 



ADDR$ (CURADR, 2) 

" :ADDR$ (CURADR, 3) 
ADDR$ (CURADR, 4) 



117 INPUT "NAME: 

1180 INPUT "ADDR: 

1190 INPUT "ADDR(2 

1200 INPUT "CITY: 

1210 INPUT "STATE: " :ADDR$ (CURADR, 5) 

1220 INPUT "ZIP: " :ADDR$ (CURADR, 6) 

1230 INPUT "PHONE: " :ADDR$ (CURADR, 7 ) 

124 RETURN 

This routine gets the information from the user about a new address. The variableCURADR indicates 
on which line of the array ADDR$ the information should be placed. 

1250 REM THIS ROUTINE LOCATES A NAME'S C 

ORRECT LOCATION IN THE LIST AND PLACES I 

T IN THE LIST 

1260 I=FIRSTA 

1270 BACK1=0 

1280 IF 1=0 THEN 1330 

1290 IF ADDR$ (CURADR, 1) <ADDR$ (I, 1) THEN 1 

330 

1300 BACK1=I 

1310 I=NEXTA(I) 

1320 GOTO 1280 

1330 IF BACK1=0 THEN 1370 

1340 NEXTA (CURADR) =NEXTA (BACK1 ) 

1350 NEXTA (BACK1 ) =CURADR 

13 60 RETURN 

1370 NEXTA (CURADR) =FIRSTA 

1380 FIRSTA=CURADR 

13 90 RETURN 

This routine finds the correct location within the linked list for the name on the line indicated by 
CURADR. It modifies the I inked list to accomplish this. 

ltworkslikethis:thevariablel will besettothelinenumberofthefirstlineonthealphabetizedlist.The 
name on line 1 is compared to the name contained on the new line, indicated by CURADR. The I F 
statement wi 1 1 fail ifthe name indicated by CURADR is alphabetically past the name indicated by I. This 
meansthatwemust look farther along the list. Wedo so by making thevari able I contain thelinenumber 
of thenext linein thelist (program line 1310). But beforewedo, remember that, in order to do the insert, 
we also need to know the I i ne number of the I i ne beforethe new linein the list. So we'l I save a copy of the 
current line into BACK 1, just in case the next value of I indicates a name alphabetically after the name 
i n the I i ne we want to add. 
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When the IF statement finds thecorrect location in the list, BACK 1 will contain the line number for the 
namejust beforethe new entry in the list, Remember, theNEXTA column of the entry indicated by 
BACK 1 saves the number of the I inethat follows the BACK 1 entry; thus, this is the line that will follow 
the new entry. The insertion can now be performed. Si nee the NEXT A column of the line contains the 
number of the I ineto follow the new entry, we movethis number to the NEXT A column of the new entry. 
And, since the new entry is to follow the BACK 1 entry in the list, we pi ace the number of the new line 
(CU RADR) into the N EXT A column of the BACK1 entry and we are finished. 

By now I amsurethat I have given you a headache. If it is still not clear exactly what is going on, take a 
pieceofpaperanddrawtheprocessout. It isreally quitesi mple.lt isnotatechniquethatpeopleuse every 
day, so it takes sometime to become comfortable with it. 

The rest of the routine (program lines 1280, 1330 and 1370-1380) all deal with the case when thelineto 
be added isatthetopofthelist. In this case, the variable FIRST needs to be updated, instead of the line 
indicated by BACK 1. 

1400 REM THIS ROUTINE SAVES THE ADDRESS 

TO FILE 

1410 OPEN #1: "DSK1.CS1", SEQUENTIAL, INTER 

NAL, OUTPUT, FIXED 192 

1420 PRINT #1 :LSTADR,FIRSTA,FREE 

1430 FOR 1=1 TO LSTADR 

1440 FOR J=l TO 7 

1450 PRINT #1 :ADDR$ (I, J) , 

1460 NEXT J 

1470 PRINT #1:NEXTA(I) 

1480 NEXT I 

1490 CLOSE #1 

150 RETURN 

This routineisessentiallythesame as thesaveroutineintheprevious version of theprogram, except that 
the current values of Fl RSTA and FREE also need to be saved (program line 1420) and the value of 
NEXT A for each line needs to be saved (program line 1470). 

1510 REM THIS ROUTINE READS THE ADDRESSE 

S FROM FILE 

1520 OPEN #1 : "DSK1.CS1", SEQUENTIAL, INTER 

NAL, INPUT , FIXED 192 

1530 INPUT #1: LSTADR, FIRSTA, FREE 

1540 FOR 1=1 TO LSTADR 

1550 FOR J=l TO 7 

1560 INPUT #1 :ADDR$ (I, J) , 

1570 NEXT J 

1580 INPUT #1:NEXTA(I) 

1590 NEXT I 

1600 CLOSE #1 

1610 RETURN 
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This is the routine that reads the file in from the cassette. Notice that it isessentially thereverseof the 
save routine. 

1620 REM THIS ROUTINE PRINTS THE INFORMA 

TION IN ADDR$ 

1630 CURADR=FIRSTA 

1640 IF CURADR=0 THEN 1680 

1650 GOSUB 1700 

1660 CURADR=NEXTA(CURADR) 

1670 GOTO 1640 

1680 INPUT "LIST COMPLETE: ":Q$ 

16 90 RETURN 

This routinedispl ays the current list to the user. It takes each lineof thelist, starting with thefirst line, 
cal Is the routi ne at 1700 to displ ay thecontents of the I i ne, and fi nds the next I i ne by getti ng its number 
from the NEXT A column of the current line. 

Coming Attractions: This routi newi 1 1 begreatly enhanced in the next section to allow the user to find an 
individual name on thelist. 

1700 PRINT "NAME: " ; ADDR$ (CURADR, 1 ) 

1710 PRINT "ADDR: "; ADDR$ (CURADR, 2 ) 

1720 IF ADDRS (CURADR, 3)="" THEN 1740 

1730 PRINT " ";ADDR$ (CURADR, 3) 

1740 PRINT "CITY: "; ADDR$ (CURADR, 4 ) 

1750 PRINT "STATE: "; ADDR$ (CURADR, 5) ; " Z 
IP: ";ADDR$ (CURADR, 6) 

17 60 PRINT "PHONE: "; ADDR$ (CURADR, 7 ) 
1770 PRINT 

17 8 RETURN 

This routinedispl ays for the user the current contents of the line indicated by the variableCURADR. It 
is called by several routines (which allows the user to seethe list's entries displayed in the same format 
every time). It displays theline currently being processed. 

17 90 REM THIS ROUTINE SEARCHES FOR A NAM 
E AND RETURNS IT IN LOCATION IN "CURADR". 
"BACK1" IS ALSO SET UP 

1800 INPUT "NAME: ":A$ 

1810 IF A$<>"" THEN 1840 

182 CURADR=0 

1830 RETURN 

1840 BACK1=0 

1850 CURADR=FIRSTA 

18 60 IF CURADR=0 THEN 1910 

1870 IF ADDRS (CURADR, 1 ) =A$ THEN 1930 

1880 BACK1=CURADR 

18 90 CURADR=NEXTA (CURADR) 
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1900 GOTO 1860 

1910 PRINT "NAME NOT FOUND" 

1920 GOTO 1800 

1930 RETURN 

And fi nal ly, this is the routi ne that searches the list to find for the user the I i ne that matches the name 
provided by the user. 

First it asks for the name to be found. It then starts at the first of the list looking for the name. In case 
the name isn t actual ly on the I ist, we check to see if we have reached the end of the I ist (I i ne 1860). I f we 
haven t reached the end, wechecktoseeif it istheonewewant (line 1870). If not, then we proceed to the 
next line. If it is, then we return the railing routine with the desired linenumber in CURADR. 

If we run out of list, the name is not there and we tell the user this. We allow the user to enter the name 
again (lines 1910 and 1920). 

That is the end of the program! Next, we'll discuss how to make the routine that displays the names on 
the list (the search function), a bit more usable. 
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Tutorial 1, Part IV. User friendliness 

This section concludes our discussion about the program that we have been using as an example, the 
simple mailing list program. In the previous sections we have taken this program from an idea to an 
actual program capabl e of 1) adding a person's name and address to the list, 2) deleting the person from 
the list, 3) modifying a person's information, 4) storing and retrieving the list to and from cassette, and 
5) displaying the list to the user. 

Now there areonly two things left to do. We must change the routine that displays the list to the screen 
to instead ask for the name of a person, search the list for that person, and display the address. We must 
also change the routinethat searches the list to allow the user to enter a guess for the person's name. 

Both of these ideas fall under the concept of "User Friendliness.'Thisconcept can be loosely thought of 
as making a program as easy to use as possible. In this case, it is allowing a user to request the name of 
a particular individual directly without having to watch every name on the list slowly scroll by. In this 
case, it also involves building into oneofthefundamental routi nes of the program, theabi I ity to allow the 
user to pick one name from the many that may match the user's "guess." 

Unfortunately, there are very few general techniques that we can use to implement user friendly 
programs. But I dohaveafew rules that I follow: 1) Design the program so that it can be easily changed 
later. 2) Save as many of the user friendly features for implementing last. Get the heart of the program 
working first. 3) Pay attention to your (and other's) reactions to using the program. The feeling or 
comment that "it sure would be easier if ..."is ad ueto where improvement can be made, and what form 
it should take. As you become more experienced in programming, then you will remember these user 
friendly features when you write other programs and design them in from the start. 

Now, on to the new routine to display addresses. 

1620 REM THIS ROUTINE SEARCHES THE INFOR 

MATION IN ADDRS 

1630 CALL CLEAR 

164 PRINT TAB(8);"NAME SEARCH": : 

1650 GOSUB 1800 

1660 IF CURADR=0 THEN 1690 

1665 PRINT 

1670 GOSUB 1700 

1680 GOTO 1640 

16 90 RETURN 

This routine may be entered into the program from the last section by simply loading the old program 
usi ng the "OLD" command (you di d enter the program from I ast ti medi dn t you?) and enteri ng the above 
lines directly. This will replace the routine in the old program and you can see this new routine works. 

Thisroutineisquitesimple, I ikethe routine it replaces. At line 1650, the search routine located at 1800 
is called to locate the name to display the address for and if that name exists then the routi neat 1700 is 
called to perform the actual display. 
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Now enter the lines below to replace the routine at 1800 that searches the list and see now it functions. 

To the user of the program this routine has thefol lowing appearance: The user enters the namethey are 
lookingfor.Thisroutinefindsall the names in the list that match the name entered and displays them. 
The user then is requested exactly which one of the displayed names is desired and location of that name 
is returned to the calling routine. 

Please note that this routine, when it is searching for matches, is looking at only the first part of the 
namesinthelistandcomparingonlyasmanycharactersasintheoriginal nametothem.Thismeansthat 
if we want to pick a name from the Ds we enter a "D"; and if we want to pick from the Davids we enter 
"DAVI D". 

17 90 REM THIS ROUTINE SEARCHES FOR A NAM 
E AND RETURNS ITS LOCATION IN "CURADR" . 
"BACK1" IS ALSO SET UP 

1800 INPUT "NAME: ":A$ 

1810 IF A$<>"" THEN 1840 

182 CURADR=0 

1830 RETURN 

1840 BACK1=0 

1850 CURADR=FIRSTA 

1860 L=LEN(A$) 

Thispartoftheroutinesetsupforthesearch. N ote line 1860 which finds the length of the namethat we 
are looking for. 

187 IF CURADR=0 THEN 2160 

1880 IF SEG$ (ADDR$ (CURADR, 1) , 1,L) >=A$ TH 

EN 1920 

18 90 BACK1=CURADR 

1900 CURADR=NEXTA (CURADR) 
1910 GOTO 1870 

This part of the routine searches the list for the first name that matches. Notice the SEG$ string 
command which is used to isolate only that part of the name on the list that we wish to look at. 

192 J=CURADR 

1930 1=0 

1940 C=l 

1950 IF CURADR=0 THEN 2040 

1960 IF SEGS (ADDR$ (CURADR, 1) , 1,L) >A$ THE 

N 2040 

1970 1=1+1 

1980 PRINT I ;ADDR$ (CURADR, 1) 

1990 CURADR=NEXTA (CURADR) 

2000 C=C+1 

2010 IF C<=22 THEN 1950 

2020 INPUT "ENTER # OF DESIRED NAME OR 



31 



TEXAS INSTRUMENTS 
HOME COMPUTER 



TO CONTINUE: ":N 

2030 IF N<=0 THEN 1940 ELSE 2070 

2040 IF 1=0 THEN 2160 

2050 PRINT "END OF LIST" 

2060 INPUT "ENTER # OF DESIRED NAME: ":N 

2070 IF (N<0) + (N>I) THEN 2060 

2080 IF N=0 THEN 2160 

This routine displays all the names in the list that match the desired name. Notethat variable I is used 
to keep a count of the matched names. It is displayed with each name so that later it can givethe number 
of the desired name. Note that variable C is used to keep a count of the number of names currently 
displayed on the screen. When the screen is full, this part of the routine pauses to allow the user time to 
examine the screen or to select the desired name, if it is already visible. 

2 90 CURADR=J 

2100 IF N=l THEN 2150 

2110 BACK1=CURADR 

2120 CURADR=NEXTA(CURADR) 

2130 N=N-1 

2140 GOTO 2100 

2150 RETURN 

This part of the routine is entered whenever the user has selected the number of the desired name. This 
part resets CURADR to the location of thenamethat matched. Then, CURADR is zipped down the list 
the desired number of names and control is returned to the calling routine. 

2160 INPUT "NAME NOT FOUND" :A$ 
217 CURADR=0 
2180 BACK1=0 
2190 RETURN 

This part of the routine is entered when either the routine or the user cant find the desired name. The 
routi ne admits fai I ure and returns. 

And that cond udes this tutorial of Basic programmi ng deal i ng with the mai I i ng program as an example. 

Happy computing! 
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Tutorial 2: Logical Operators 
Brian Prothro 

Tutorial 2, Part I 

Learningtouselogical operatorsisalotlikelearningto 
juggle. At first it'stotal confusion, but once you master 
the task it's quite an impressive trick. Attempts to 
encode logical algorithms in Basic, without 
understanding logical operators, can create 
cumbersome code with lengthy calculation times. This 
tutorial provides a few examples on how to reduce your 
code to a compact logical algorithm. You should have a 
fami I i ar under standi ng of Basic beforeyou attempt this 
tutorial. If you are very familiar, hang in there, we'll 
soon get off the ground. 

U nfortunately the most clearly understandableformat for logical operators (AND, OR, NOT andXOR) 
is availableonly with Extended Basic. However regular Basic can accomplish the same task using the 
mathematical symbols (+) plus, (-) minus, (*) multiply, and (=) equals. First we will learn si mpletheory 
using Extended Basic, si nee it is easier to read, then we will duplicate the code in regular Basic. 

Here are the definitions for two of thefour operators. 

AND The statement is TRUE if, and only if both expressions areTRUE. AND means both. 

OR The statement isTRU E if oneexpression, or both expressionsareTRU E . OR meansoneor both. 

What do we mean by this? Try applying the OR definition to the coded example below. 

OR example: 

IF (A=10) OR (B=20) THEN PRINT "SUCCESS" 

Reads I ike English, rightlYou aretesti ng for thetruth of two expressions. If A= 10 and/or if B=20. Bythe 
OR definition, if one of the expressions is TRUE, or if both expressions areTRUE then the whole 
statement isT RU E , and the word SU CCE SS wi 1 1 be pri nted by thecomputer. OR means oneor both. T he 
only other possible result: If and only if both expressions in the statement are FALSE will thecomputer 
not print SUCCESS. 

You have probably seen that the (IF ...THEN ...) statement is central tothelogical process. Iftheresult 
of your logical comparison after thelF isTRUE, then your code afterTHEN will execute. 



33 



TEXAS INSTRUMENTS 
HOME COMPUTER 



AND example: 

IF (A=10) AND (B=20) THEN PRINT "SUCCESS" 

With theAN D statement both expressions must beTRU E for the statement to beTRU E . I f for instance, 
thevariable(A) in the above statement were 5 when the expression asks for ittobeequal to 10, then this 
expression in our statement would be FALSE, the statement would not print SUCCESS. The entire 
statement would not beTRU E because both expressions are not TRUE. Simple! 

Here are two AN D-OR truth tables. With thesetablesasa reference, you can write or decipher logical 
stat ements with two expressions.Thetables are read horizontally, with theresults of thestatement given. 
See how the tables reflect the above definitions. Try each one mentally. 



AND Table 




OR Table 


(A) 


(B) 


Logical result 


(A) 


(B) 


Logical result 


TRUE 
TRUE 
FALSE 
FALSE 


TRUE 
FALSE 
TRUE 
FALSE 


TRUE 
FALSE 
FALSE 
FALSE 


TRUE 
TRUE 
FALSE 
FALSE 


TRUE 
FALSE 
TRUE 
FALSE 


TRUE 
TRUE 
TRUE 
FALSE 



All possible results for two expressions can be deduced from the above table. Lets pick up the pace. 
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Tutorial 2, Part II 

I n a given program, you may eventually ask for a user's input. Lets say you only want this input to be 
within certain numerical limits. For example, thenumber 2 and all numbers between 10 and 15. Examine 
the program code below and see how the problem is solved. 

100 PRINT "INPUT YOUR NUMBER" 

200 INPUT X 

300 IF X=2 OR (X>=10 AND X<=15) THEN PRINT "ACCEPTED" ELSE 100 

400 END 

With the combined logical operators, we can seethat if the user's entry is not 2, or a number from 10 to 
15, then program control returns and asks that the number be entered again. In this way you can screen 
a user's input for correct entries. 

Before we continue, let's understand what the computer does when it interprets a logical operator. The 
computer weighs a statement such asA=10, if this expression is TRUE then 99/4A logic assigns a value 
of minus 1 (-1) to the expression. If the expression is FALSE, a zero (0) is assigned. The value of this 
information isrevealed when weusetheregular Basicversi on of logical operators. Although theExtended 
Basic version iseasier to understand, the regular version is more revealing, and is mathematically closer 
to reality. It's all simple math! 

These examples show two EQUIVALENT expressions. 

EXTENDED: IF A=10 AND B=20 THEN PRINT "SUCCESS" 
REGULAR: IF (A=10) * (B=20) <>0 THEN PRINT "SUCCESS" 

To see how this regular Basic statement is computed, lets assumethat both expressions for A and B are 
TRUE (-1), making the statement TRUE (-1). Si nee the computer has assigned a value of (-1) to each 
expression, the result would look like this: 

REGULAR: IF (-1)*(-1)<>0 THEN PRINT "SUCCESS" 

Since(-l) x (-1) = 1, oneis not equal to zero, as thestatement requires. So our equation/statement is 
TRUE, and the word SUCCESS will be printed by the computer. To make a long lesson short, examine 
how the FALSE outcome below is obtained. 

IF (0)*(-l)<>0 THEN PRINT "SUCCESS" 

(0) x (-1) = 0, si ncezero is not greater or lessthan (0), asthestatement requires, thestatement is FALSE 
and SUCCESS will not be printed. 

Let me now give you some standard formats for coding regular Basic statements, although they can be 
written any number of different ways. 
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AND Multiply the two expressions and check if greater or less than zero. 

EXTENDED: IF A=10 AND B=10 THEN ... 
REGULAR: IF (A=10) * (B=10) <>0 THEN ... 

OR Add the two expressions and check if less than zero. 

EXTENDED: IF A=10 OR B=20 THEN ... 
REGULAR: IF (A=10) + (B=20) <0 THEN ... 

Thelogical charts we examined before may now be viewed in a different light, a mathematical one. They 
are, of course, equivalent to the AN D/OR charts shown previously. 



AND Table 


(A) 


(B) 


Logical result 


1 
1 




1 

1 



1 






OR Table 


(A) 


(B) 


Logical result 




1 


1 


1 




1 





1 







1 


1 














At this point you should put this book down and physically try someexamplesbeforeyou go on. You often 
see this suggested, but in this case it's good advice. 
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Tutorial 2, Part III 

I will outline NOT and XOR briefly. With the logical charts on NOT and XOR you should be able to 
deduce what you need when using them. These last two of the four operators reverse our thinking a bit. 

DEFINITIONS: 

XOR The statement isT RUE if, and only if, ONE oftheexpressionsareTRUE, but not if both 
areTRUE. XOR means either one, but not both. 

NOT Is used in conjunction with other operators to reverse a logical outcome. 



NOT Logic Chart 


(A) 


NOT (A) 


TRUE 
FALSE 


FALSE 
TRUE 



NOT simply reverses logic, (0) becomes (-1), and (-1) 
becomes (0). N OT can also reversethe logic of an 
entire statement. It is used where needed. 



XOR Logic 


(A) 


(B) 


Outcome 




1 


1 







1 





1 







1 


1 














XOR Logic Chart 


(A) 


(B) 


Result 


TRUE 
TRUE 
FALSE 
FALSE 


TRUE 
FALSE 
TRUE 
FALSE 


FALSE 
TRUE 
TRUE 
FALSE 



Get ready, these are equivalent statements for XOR: 



EXTENDED: IF A=2 XOR B=4 THEN ... 
REGULAR: IF - ( ( (A=2) + (B=4) <0) * ( (A=2) * (I 



=0) ) <>0 THEN 



Given this XOR equation, we can reduce it step by step. F i rst the computer reduces an equation to its 
simplest form, then depending on if the expression is TRUE or FALSE, it assigns a (-1) or (0) to the 
expressions. We now will assume, for this example, that A is not equal toTWO (FALSE), and that B is 
equal to FOUR (TRUE). The equation appears I ike this, andthefinal result will beTRUE. 



1 [Changed using correction list. — Cyc Ed.] 
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IF - 


((A=2) 


+ 


(B=4)<0) * 


((A= 


2)* 


(B= 


4) 


=0) ) <>0 THEN 


1) 


- 


(( ) 


+ 


(-1 )<0) * 


(( o 


)* 


(-1 


) 


=0) ) <>0 THEN 


2) 


- 


( 


-1 


<0) * 


( 









=0) ) <>0 THEN 


3) 


- 


( 


-1 


) * 


( 


-1 






) ) <>0 THEN 


4) 


- 






1 










)<>0 


5) 








-1 










<>0 


6) 












-1 









Note that most of the steps are purely math, but in steps three and six the computer is assigning logical 
values respective to the validity (TRUTH) of each our statements. 

XOR logic states that if only one expression is TRUE then (as is the case above), the statement is TRUE 
(-1). As you can tell, it's easier to look at the logic table and write your code than to figure it out from 
scratch. Given the program results you require, and oneor moreof the logical tables/operators, you can 
solve any problem. 

NOT simply reverses the logic on an expression or on an entire statement. It is used as needed. If 
expression (B) isTRUE then NOT(B) would be FALSE. Thecode would look likethis: 

IF A=2 AND NOT B=4 THEN . . . 

For example, if you wanted all results of theAND tableto bereversed, then you would write your code, 
as shown below, with the NOT operator leading your statement. 

IF NOT(A=2 AND B=4) THEN ... 

NOT simply reverses the logic. (0) becomes (-1) and (-1) becomes (0). 



[Changed using correction list. — CycEd.] 
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Tutorial 2, Part IV 

Logical operations can be used to compare filenames, character strings, or numbers, or to identify a 
particular segment of text. This example is valid. It checks to see if the ASCI I characters in variableA$ 
are equivalent to a segment of the string B$, or if A$ equals the string "KLM N ". 

IF A$ = SEG$ (B$, 4,LEN(B$) ) OR A$ = "KLMN" THEN ... 

For example, wecould useaCALL KEY statement in a program. A user's input could be screened so that 
only the ASCI I characters 38, 40 and 45 through 48 are accepted. 

100 CALL KEY (A) 

200 IF A=38 OR A=40 OR (A>=45 AND A<=48) THEN 300 ELSE 100 

30 PRINT "CHARACTER ENTRY ACCEPTED" 

Order of precedence 

When the computer executes a series of expressions containing logical operators, it executes them in a 
specific order. The order of precedence (first to last) is NOT, XOR, AND and OR. So if you have several 
of thesein a statement, the order of execution will not necessarily be from left to right. If you arenot 
careful, your code may kick up some unexpected results. 

The first statement is an example. The second statement contains parentheses and indicates the 
computers order of preference for theexample. I nnermost parentheses arealways executed first. 

WE SEE: IF A=10 AND B=17 AND D=Y OR F=27 AND NOT E=12 THEN ... 

COMPUTER: IF((A=10 AND B=17) AND (D=Y) OR (F=2 AND (NOT E = 12) THEN ... 

NOT is executed first, so it is shown in the innermost parentheses. Next, expressions A= 10, B=17, and 
D=Y are reduced to a logical TRUE or FALSE. Then expressions F =27, and E = 12. Last, the remaining 
values on both sides of theOR operator are reduced, si nee OR is last in the order of preference. Well see 
this type of solution in moredetail with the next example, dont fret. 

If this order did not give us the results our program required, wecould force the order of execution by 
including our own parentheses. Lets do that using the same expression. I will choose an arbitrary order 
by including parentheses. 

EXTENDED: IF A=10 AND ( (B=17 AND D=Y) OR (F=27)) AND NOT E = 12 THEN ... 
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Here is what the solution would look likegiven thefollowing conditions: 

A=10, FALSE 

B=17, TRUE 

D=Y, TRUE 

F = 27, FALSE 

E=12, TRUE 

IF A=10 AND ( (B=17 AND D=Y) OR (F=27)) AND NOT E=12 THEN 

Logical Equivalent: Remember this is a logical solution only, not math. 





IF AND ( (-1 




AND 


-1) OR (0)) 


AND - ( 


-l) 


THEN . . . 


1) 


IF AND ( (-1 




AND 


-1) OR (0)) 


AND 





THEN . . . 


2) 


IF AND ( (-1 






) OR 0) 


AND 





THEN . . . 


3) 


IF AND ( 






-1 ) 


AND 





THEN . . . 


4) 


IF 









AND 





THEN . . . 


5) 


IF 













THEN . . . 


1. 


The order starts 


w 


thE = 


= 12 having its logic 


reversed 


3V the NOT ope 



FALSE. 

2. Next, theexpressionsB=17 and D=Y. They are both TRUE so this AND comparison results in 
TRUE. 

3. Then this same result would becompared with F =27 by the OR operator. F =27 is FALSE but in 
an OR statement only oneexpressi on is required to beTRUE, so this results in TRUE. Now there 
remains three expressions each separated by ANDs. 

4. The first two, FALSE and TRUE result in FALSE (0). 

5. Then this result is compared with the last value of FALSE (0). Again, si nee both expressions are 
not TRUE, the final result is FALSE. Since the final result of our statement is FALSE (0), our 
task will not execute. 

I will finish this section with something simple, these two statements are equivalent. 3 

EXT. IF B>10 AND B<20 THEN PRINT "SUCCESS" 
REG. IF 10<B<20 THEN PRINT "SUCCESS" 



[Deleted using correction list. — Cyc Ed.] 



40 



The Cyc: Cracking the 99/4A 



Here is a simple example of an exclusive OR: 4 

IF (A=2)-(3=4)=0 THEN ... 

As you can deduce it is the ability of AND, OR, NOT and XOR to combine in any number of ways that 
allows you tocompareand check an incredible number of conditions in one compact statement. (If you 
so desire.) Likel said, it's like learning to juggle. When writing your codeit requires thought to ensure 
that all possiblecombinationsofyour logical expressions will result in the proper execution of your code. 
If you find that you have trouble writing a statement, make a loop that allows you to keep entering 
different values for your variables. Then watch to see what your PRINT statement displays. 



[Added using correction list. — Cyc Ed.] 
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Tutorial 2, Part V. Program 

As you can seetheflexibi I ity of logical expressions can be a trying experience, but the effort is well worth 
the trouble in execution time and reduction of program code. 

Now I'll describe two logical statements from an example program. The only thing this program does is 
allow you to input the upper, lower, left, and right boundaries within which a cursor will have limited 
movement. The first statement we will look at validates your input. The second statement is somewhat 
more complex. 

100 REM CRACKING THE 9 9/4A 

110 REM LOGIC DEMO #1 

120 REM BRUCE WYCHE 02/08/84 

130 CALL CLEAR 

14 CALL SCREEN (2) 

150 PRINT TAB (7) ; "LOGIC DEMO PROGRAM" : TA 

B (7) ; "CRACKING THE 99/4A" 

160 FOR 1=1 TO 11 

170 PRINT 

180 NEXT I 

190 PRINT " PRESS ANY KEY TO CONTINUE" 

200 CALL SCREEN (15) 

210 CALL KEY(3,K, S) 

220 IF S=0 THEN 210 

230 CALL CLEAR 

24 INPUT " ENTER LEFT BORDER COLUMN # 

(3 <= LB < 2 9) ":LT 
250 IF (LT>2) * (LT<29) >0 THEN 280 

2 614 PRINT "ERROR, TRY AGAIN" 
27 GOTO 24 

280 INPUT " ENTER RIGHT BORDER COL # 

("&STR$ (LT) &" < RB <=30) " : RT 
290 IF (RT>LT) * (RT<31) >0 THEN 320 
300 PRINT "ERROR, TRY AGAIN" 
310 GOTO 280 
32 INPUT " ENTER TOP BORDER ROW # 

(1 <= TP <=23) ":TP 
330 IF (TP>0) * (TP<24) >0 THEN 360 
34 PRINT "ERROR, TRY AGAIN" 
350 GOTO 320 

3 60 INPUT " ENTER BOTTOM BORDER ROW # 

("&STR$ (TP) &" < BM <=2 4) " : BM 
370 IF (BM>TP) * (BM<25) >0 THEN 400 
380 PRINT "ERROR, TRY AGAIN" 
390 GOTO 360 
400 CALL CLEAR 

410 CALL HCHAR(TP,LT, 30,RT-LT+1) 
420 CALL HCHAR BM, LT, 30 , RT-LT+1 ) 
430 CALL VCHAR(TP+1,LT, 30,BM-TP-1) 
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440 CALL VCHAR(TP+1,RT, 30,BM-TP+1) 

450 R=TP 

460 C=LT 

470 CALL GCHAR(R,C,GC) 

480 CALL HCHAR(R,C, 30) 

4 90 CALL KEY(0,K, S) 
500 CALL HCHAR(R,C,GC) 
510 IF S=0 THEN 480 

52 REM COMPACT EXAMPLE OF LOGI 
CAL OPERATORS 

530 REM HCHAR WILL LEAVE ONE OF T 
HREE CHOICES 

54 REM DEPENDING ON WHICH KEY 
WAS PRESSED 

55 REM LEAVE OLD CHAR ' GC ' IF K 
EY WAS ARROW, 'ENTER' OR ' FCTN 

6' 

5 60 REM LEAVE ' 'IS KEY WAS NON- 
PRINTABLE CHAR 

57 REM LEAVE NEW KEY PRESS AND 

MOVE RIGHT IF KEY BETWEEN 32, 

127 

580 CALL HCHAR(R,C,GC* (K>7) * (K<14) +32* (K 

>131) * (K<153)+K* (K>31) * (K<128) ) 

590 IF K<>12 THEN 610 

60 GOTO 450 

610 IF K<>13 THEN 650 

62 R=R-(R<BM) 

630 C=LT 

640 GOTO 470 

650 R=R+ (K=10) * (R<BM) - (K=ll) * (R>TP) 

660 C=C- (K=8) * (OLT) - ( (K>31) * (K<128) - (K= 

9) ) * (C<RT) 

670 GOTO 470 

68 REM ADD YOUR OWN PROGRAM 

6 90 REM CODE FROM HERE, DOWN 
700 REM YOU ARE ON YOUR OWN. 
710 END 

Your left limit is entered in line240.Theinputmustbewithintheboundariesofthescreen andischecked 
by line 250. It uses AND logic, so both clauses must be true. This expression checks to see that the left 
boundary is greater than 2 and less than 29. 



IF (LT>2) * (LT<29) <>0 THEN 280 
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When both conditions aretrueyour entry is accepted and I ine280, thenext entry, isexecuted. I n thiscase 
the above expression would look likethis: 

IF (-1) * (-1) >0 THEN 280 
true true 

If either condition isfalsethe returned value is zero so line 260 would print an error message and ask you 
to enter your input again. 

You can see that the statements in lines 290, 330, and 370 aresimilar for the other boundaries. 

Line 580 shows three tests. CALL H CHAR will leave the old character "GC" if the key pressed was an 
arrow, ENTER, or FCTN 6. 1 1 leaves a spaceif thekey pressed was a non-pri ntablecharacter. 1 1 leaves the 
new key pressed and moves right if the key was between ASCI I 32 or 127. 

Note "GC" is the ASCI I code for the original character in that row and column. 

Line 580. 

CALL HCHAR(ROWCOL,GC* (KEY>7) * (KEY<14) 
+ 32* (KEY>131) * (KEY<153) 
+KEY* (KEY>31) * (KEY<128) 

The code above is shown broken into it's three logical tests. Thecharacter printed by H CHAR will bethe 
sum of the three tests, each separated by "+" : 

First test: If KEY was an arrow key (ASCI I value8,9, 10 or ll),thenyouget"GC"astheresult.Theother 
SUMS areeach zero and 'fall-out" of the equation. 

Second test: If KEY was not printable (ASCI I 131-153), then leave a space. 

Third test; If KEY was a printable character (ASCII 32-127), then display it. Note in thisexamplethat 
each logical test range must not overlap. 

This short example is loaded with other logical expressions. You might try a few on your own to increase 
your familiarity with this type of code. Good luck! 
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Games 
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Extended Basic 

Checkers for 16K 

Al most everyone has enjoyed a game of checkers at one 
time or another, so it is inevitablethat some version of 
checkers would eventual ly make it i nto your computer. 
This version of checkers fits into 16K of console 
memory, while offering a fast game for beginners. The 
moves are timed and the time allowed for a player to 
make a move is decided by the level of play chosen. 
Level one allows a player 20 seconds to move whereas 
level nine allows 180 seconds. 

The computer displays the game board and clock, 
crowns kings, and as you can guess, takes advantage of 
any multiple jumps left by the human challenger! By 
removing the introduction or using the 32K memory 
expansion, one could add a few subroutines that would makethis program quite a contender. 

All the rules are followed, including forcing the challenger to make any available jumps. Good luck! 




100 REM CHECKERS. TO RESIGN ENTER ' FCTN i 

110 REM ALLEN HOLLEY 

12 REM CRACKING THE 9 9/4A 

130 CALL CLEAR : : CALL HEADER 

140 DIM Z (8, 8) 

150 DATA 1,0,1,0,0,0,-1,0,0,1,0,0,0,-1,0 

,-1,9 

160 CALL CHAR(112, "00000000070F0F0F0F0F0 

F0700000000F0F0F0E00000000000000000E0F0F 

0F0"):: CALL CHAR ( 116, "0000000000000000 " 

) 

170 CALL CHAR(117, "0F0F0F0F0F0F0F0FF0F0F 

0F0F0F0F0F0") 

180 CALL CHAR(120, "00000000070F0F0F0F0F0 

F0700000000F0F0F0E00000000000000000E0F0F 

0F0"):: CALL CHAR ( 124 , "FFFFFFFFFFFFFFFF" 

) 

190 CALL CHAR(125, "0F0F0F0F0F0F0F0FF0F0F 

0F0F0F0F0F0") 

200 CALL CLEAR :: CALL SCREEN(8):: CALL 

COLOR (11, 2, 9, 12, 16, 9) 

210 CALL HCHAR(5, 1, 124, 32*16) : : CALL VCH 

AR(1,1, 32, 24*14) :: CALL VCHAR(1, 31, 32, 4 8 
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220 Y=8 : : FOR X=5 
HCHAR(X, 13, 48+Y) : : 
230 Y=l : : FOR X=15 

HCHAR(22,X, 64+Y) : : 
240 FOR X=l TO 8 : : 

J : : IF J>2 THEN 2 
OTO 260 

250 RESTORE : : READ 
2 60 NEXT Y : : NEXT 
270 FOR X=l TO 8 : : 
B 1630 : : NEXT Y : : 
280 DISPLAY AT (2, 1) 
" : : DISPLAY AT (3, 1 

1" 
2 90 ON WARNING NEXT 
LIDATE (DIGIT) SIZE (- 
*20 : : TOUT=0 
300 DISPLAY AT (1, 1) 
NDS" : : DISPLAY AT ( 
MOVE" : : DISPLAY AT 



TO 19 STEP 2 : : CALL 

Y=Y-1 : : NEXT X 
TO 2 9 STEP 2 : : CALL 
Y=Y+1 : : NEXT X 
FOR Y=l TO 8 : : READ 

50 ELSE Z (Y,X)=J : : G 

Z(Y,X) 

X : : YOU,ME=12 

FOR Y=l TO 8 : : GOSU 

NEXT X 

: "ENTER LEVEL OF PLAY 
) : " ENTER 1 THRU 9 

ACCEPT AT (3,20) VA 
1)BEEP:LIM :: LIM=LIM 

:"YOU HAVE";LIM; "SECO 
2,1):" TO ENTER EACH 
(11, 1) SIZE (6) : " TIME 



310 REM MY FIRST MOVE 

320 A=6 : : RANDOMIZE : 

,B):: B=INT (INT (B/25+1 

330 C=5 : : RANDOMIZE : 

,D) : : D=INT (D/50) : : D= 

THEN D=7 

34 REM MOVE MY MAN 

350 GOSUB 1610 : 

HEN Z (A,B)=-2 : : 

RJ1 = 

360 Z(C,D)=Z(A,B 

=B : : GOSUB 1630 



CALL PEEK(-31880 
*2) 

CALL PEEK(-31880 
S+l-D-D : : IF D=9 



IF C=l AND Z(A,B)=-1 T 
CALL SOUND (50 0, 50 0, 1) : : 



Z (A,B)=0 : : X=A : : Y 
X=C : : Y=D : : GOSUB 
IF RJ1=0 THEN 380 



1630 

370 A=C :: B=D :: GOSUB 1470 :: IF RJ1>0 

THEN 450 ELSE IF Z(A,B)=-2 THEN GOSUB 1 
330 : : IF RJ1>0 THEN 450 
380 DISPLAY AT (3,1):" " :: GOTO 770 
3 90 REM MY MOVE 

400 DISPLAY AT (1,1):" " :: DISPLAY AT (2, 
1):" " :: DISPLAY AT (5, 1) SIZE ( 9) : " " :: 
DISPLAY AT (3, 1) SIZE (9) BEEP: "MY MOVE" 
410 REM CK FOR JUMPS 
420 OPP=l :: FOR A=8 TO 1 STEP -1 :: FOR 

B=l TO 8 :: IF Z(A,B)<0 THEN GOSUB 1470 

: : IF RJ1>0 THEN 450 
430 IF Z(A,B)=-2 THEN GOSUB 1330 : : IF R 
J1>0 THEN 450 

440 NEXT B :: NEXT A :: GOTO 580 
450 SJ1=RJ1 : : SJ2=RJ2 : : SJ3=RJ3 : : SJ4 
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=RJ4 

460 FOR A=8 TO 1 STEP -1 :: FOR B=l TO 8 

:: IF Z(A,B)<0 THEN GOSUB 1470 :: IF RJ 
1>0 THEN 490 

470 IF Z(A,B)=-2 THEN GOSUB 1330 : : IF R 
J1>0 THEN 490 

480 NEXT B :: NEXT A :: GOTO 500 
490 GOSUB 1040 :: IF RJ5>0 THEN 550 ELSE 
480 
500 FOR A=8 TO 1 STEP -1 : : FOR B=l TO 8 

:: IF Z(A,B)<0 THEN GOSUB 1540 :: IF RJ 
10 THEN 32767 

510 IF Z(A,B)=-2 THEN GOSUB 1400 : : IF R 
J1>0 THEN 530 

520 NEXT B :: NEXT A :: GOTO 540 
530 GOSUB 1040 : : IF RJ5>0 THEN 550 ELSE 

520 
540 RJ1=SJ1 : : RJ2=SJ2 : : RJ3=SJ3 : : RJ4 
=SJ4 

550 A=RJ1 : : B=RJ2 : : C=RJ3 : : D=RJ4 : : 
IF A<C THEN A1=A+1 ELSE A1=A-1 
560 IF B<D THEN A2=B+1 ELSE A2=B-1 

57 Z(A1,A2)=0 :: X=A1 :: Y=A2 :: GOSUB 
1630 :: YOU=YOU-l :: IF YOU<l THEN 1720 
ELSE 340 

58 REM NO JUMPS CK FOR MOVE 

590 OPP=-l :: FOR A=l TO 8 : : FOR B=l TO 

8 
600 IF Z(A,B)>0 THEN GOSUB 1330 :: IF RJ 
1>0 THEN 620 ELSE IF Z(A,B)=2 THEN GOSUB 

1470 : : IF RJ1>0 THEN 620 
610 NEXT B :: NEXT A :: GOTO 630 
620 SB=B :: SA=A :: GOSUB 1260 :: IF NJ= 
THEN RJ1=0 : : GOTO 340 ELSE B=SB : : A= 
SA : : GOTO 610 
630 RJ1=0 : : B=2 : : FOR A=8 TO 4 STEP -2 

:: IF Z(A,B)<>-1 THEN 6414 ELSE IF Z (A-l 
,B-1)=0 THEN C=A-1 :: D=B-1 :: GOTO 340 
640 NEXT A 

650 B=7 :: FOR A=7 TO 3 STEP -2 :: IF Z ( 
A,B)<>-1 THEN 660 ELSE IF Z(A-1,B+1)=0 T 
HEN C=A-1 : : D=B+1 : : GOTO 340 
660 NEXT A 

670 A=2 :: FOR B=l TO 8 :: IF Z(A,B)=-1 
THEN GOSUB 1120 :: IF C>0 THEN 340 
680 NEXT B 
690 FOR A=8 TO 3 STEP -1 : : FOR B=l TO 8 

:: IF Z(A,B)>-1 THEN 710 ELSE GOSUB 112 
: : IF C=0 THEN 710 
700 GOSUB 1160 :: IF NJ=0 THEN 340 
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710 NEXT B : : NEXT A 
720 FOR A=8 TO 3 STEP -1 : : 
:: IF Z(A,B)<0 THEN GOSUB 
THEN 340 



FOR 

1120 



730 

740 

750 

760 

N 

770 

780 



NEXT B : : NEXT A 
ME=0 : : GOTO 1720 
REM SMALL DELAY 
FOR DEL=1 TO 20 : : 



NEXT DEL 



= 1 TO 8 
IF C> 



RETUR 



IF RJ 
GOSUB 



DISPL 
AT (2 0, 

TIME 



REM HIS MOVE 

TIME=LIM : : OPP=-l : : FOR A=l TO 
: FOR B=l TO 8 

790 IF Z(A,B)>0 THEN GOSUB 1330 :: 
1>0 THEN 810 ELSE IF Z(A,B)=2 THEN 

1470 : : IF RJ1>0 THEN 810 
800 NEXT B : : NEXT A 
810 DISPLAY AT (22, 1) SIZE (9) : " " :: 
AY AT (20, 1) SIZE (9) : " " :: DISPLAY 
1) SIZE (9) BEEP: "YOUR MOVE" 
820 DISPLAY AT ( 13, 1 ) SIZE ( 9) : TIME 
=TIME-.119 
830 CALL KEY(3,B1, STAT) : : IF TIME<0 THEN 

1720 ELSE IF STAK1 THEN 820 ELSE GOSUB 

760 :: IF Bl=6 THEN 1720 
840 IF BK65 OR Bl>72 THEN 810 ELSE B=B1 
-64 :: CALL HCHAR (22, 3, Bl ) 
850 CALL KEY (3, Al, STAT) 

850 ELSE GOSUB 760 : : IF 

THEN 810 ELSE A=Al-48 
5,A1) 
860 CALL KEY(3,D1, STAT) 

860 ELSE GOSUB 760 :: IF 

THEN 810 ELSE D=Dl-64 
8,D1) 
870 CALL KEY (3, CI, STAT) 

870 ELSE GOSUB 760 : : IF 

THEN 810 ELSE C=Cl-48 
10, CI) 

880 IF A+2=C OR A-2=C OR B+2=D OR B-2=D 
THEN 970 ELSE IF Z(C,D)<>0 OR Z(A,B)<1 T 
HEN 810 

8 90 REM IF HE MOVES 
900 IF RJ1>0 THEN 810 ELSE IF A+1=C THEN 

910 ELSE IF A-lOC THEN 810 ELSE IF Z (A 
,B)<>2 THEN 810 

910 IF B+1=D OR B-1=D THEN 920 ELSE 810 
920 IF C<8 OR Z(A,B)=2 THEN 930 ELSE CAL 



IF STAK1 THEN 
AK49 OR Al>56 
CALL HCHAR (22, 

IF STAK1 THEN 
DK65 OR Dl>72 
CALL HCHAR (22, 

IF STAK1 THEN 
CK49 OR Cl>56 
CALL HCHAR (22, 



L SOUND (500, 400, 1) : 


: Z(A,B)=2 : 


: RJ1=0 


930 Z (C,D)=Z (A,B) : : 


Z (A,B)=0 : : 


X=A : : Y 


=B : : GOSUB 1630 : : 


X=C : : Y=D 


: : GOSUB 
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1630 :: IF RJ1=0 THEN 960 

940 OPP=-l :: A=C :: B=D :: GOSUB 1330 : 
: IF RJ1>0 THEN 810 

950 IF Z(A,B)=2 THEN GOSUB 1470 :: IF RJ 
1>0 THEN 810 

960 DISPLAY AT (20, 1 ) SIZE ( 9) : " " :: GOTO 
390 

97 REM IF HE JUMPS 

980 IF A+2=C THEN 990 ELSE IF A-2<>C OR 
Z(A,B)<>2 THEN 810 

990 IF B+2=D OR B-2=D THEN 1000 ELSE 810 
1000 IF Z(C,D)<>0 OR Z(A,B)<1 THEN 810 E 
LSE IF OA THEN A4=A+1 ELSE A4=A-1 
1010 IF D>B THEN A5=B+1 ELSE A5=B-1 
1020 IF Z(A4,A5)>-1 THEN 810 
1030 Z(A4,A5)=0 :: X=A4 :: Y=A5 :: GOSUB 
1630 :: ME=ME-1 :: IF ME=0 THEN 1720 EL 
SE 920 

104 REM CHECK FOR DBL JUMP 
1050 RJ5=0 : : IF RJ3-2<1 THEN 1080 ELSE 
IF RJ4+2>8 THEN 1070 

1060 IF Z (RJ3-1,RJ4+1) >0 AND Z(RJ3-2,RJ4 
+2)=0 THEN RJ5=1 :: GOTO 1110 
1070 IF RJ4-2<1 THEN 1080 ELSE IF Z (RJ3- 
1,RJ4-1)>0 AND Z (RJ3-2,RJ4-2)=0 THEN RJ5 
=1 : : GOTO 1110 

1080 IF Z (RJ1,RJ2)=-1 THEN 1110 ELSE IF 
RJ3+2>8 THEN 1110 ELSE IF RJ4+2>8 THEN 1 
100 

1090 IF Z (RJ3+1,RJ4+1) >0 AND Z(RJ3+2,RJ4 
+2)=0 THEN RJ5=1 :: GOTO 1110 
1100 IF RJ4-2<1 THEN 1110 ELSE IF Z (RJ3+ 
1,RJ4-1)>0 AND Z (RJ3+2,RJ4-2)=0 THEN RJ5 
= 1 

1110 RETURN 

112 REM CHECK FOR MOVE 

1130 C=0 : : IF B-Kl THEN 1140 ELSE IF Z 
(A-1,B-1)=0 THEN C=A-1 :: D=B-1 :: RETUR 
N 

1140 IF B+l>8 THEN RETURN ELSE IF Z (A-l, 
B+1)=0 THEN C=A-1 :: D=B+1 
1150 RETURN 

1160 REM CAN HE JUMP ME IF I MOVE 
1170 NJ=0 :: IF D>7 THEN 1180 ELSE IF Z( 
C-1,D+1)>0 THEN 1250 

1180 IF D<2 THEN 1190 ELSE IF Z(C-1,D-1) 
>0 THEN 1250 

1190 IF B>6 THEN 1200 ELSE IF Z(A-1,B+1) 
<0 AND Z(A-2,B+2)>0 THEN 1250 
1200 IF B<3 THEN 1210 ELSE IF Z(A-1,B-1) 
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<0 AND Z(A-2,B-2)>0 THEN 1250 
1210 IF B>6 THEN 1230 ELSE IF A<3 THEN 1 
220 ELSE IF Z(A-1,B+1)<0 AND Z(A-2,B+2)> 
THEN 1250 

1220 IF A>6 THEN 1230 ELSE IF Z(A+1,B+1) 
<0 AND Z(A+2,B+2)>1 THEN 1250 ELSE IF B< 
3 THEN RETURN ELSE IF Z(A+2,B-2)>1 THEN 
1250 

1230 IF B<3 THEN RETURN ELSE IF A<3 THEN 
1240 ELSE IF Z(A-1,B-1)<0 AND Z(A-2,B-2 
)>0 THEN 1250 

1240 IF A>6 THEN RETURN ELSE IF Z(A+1,B- 
1)<0 AND Z(A+2,B-2)>1 THEN 1250 ELSE RET 
URN 

1250 NJ=1 : : RETURN 
12 60 REM HE CAN JUMP ME 

1270 IF RJ3>RJ1 THEN A=RJ3-1 ELSE A=RJ1- 
1 

1280 
1 
1290 



IF RJ4>RJ2 THEN B=RJ4-1 ELSE B=RJ2- 



IF Z(A-1,I 
: : GOSUB 1160 
1300 IF Z(A-1,I 
: : GOSUB 1160 



-1) 



D=B-1 



=0 THEN C=A-1 

: IF NJ=0 THEN RETURN 

1)=0 THEN C=A-1 :: D=B+1 

: IF NJ=0 THEN RETURN 



1310 IF Z(A,B)<>-2 THEN RETURN ELSE IF Z 
(A+1,B-1)=0 THEN C=A+1 :: D=B-1 :: GOSUB 

1160 :: IF NJ=0 THEN RETURN 
1320 IF Z(A-1,B-1)=0 THEN C=A-1 :: D=B-1 

:: GOSUB 1160 :: RETURN ELSE RETURN 
1330 REM CK REQUIRED JUMP UP M 
1340 RJ1,RJ2,RJ3,RJ4=0 :: IF A+2>8 THEN 
1390 ELSE IF B-2<1 THEN 1370 
1350 IF Z (A+l,B-l)=OPP AND Z(A+2,B-2)=0 
THEN RJ1=A : : RJ2=B : : RJ3=A+2 : : RJ4=B- 
2 : : GOTO 1390 

1360 IF Z (A+l,B-l)=OPP+OPP AND Z(A+2,B-2 
)=0 THEN RJ1=A :: RJ2=B :: RJ3=A+2 :: RJ 
4=B-2 : : GOTO 1390 

1370 IF B+2>8 THEN 1390 ELSE IF Z(A+1,B+ 
l)=OPP AND Z(A+2,B+2)=0 THEN RJ1=A :: RJ 
2=B : : RJ3=A+2 : : RJ4=B+2 

1380 IF Z (A+l,B+l)=OPP+OPP AND Z(A+2,B+2 
)=0 THEN RJ1=A :: RJ2=B :: RJ3=A+2 :: RJ 
4=B+2 

13 90 RETURN 

14 REM CK REQUIRED JUMP UP P 

1410 RJ1,RJ2,RJ3,RJ4=0 :: IF A+2>8 THEN 
1460 ELSE IF B+2>8 THEN 1440 
1420 IF Z (A+l,B+l)=OPP AND Z(A+2,B+2)=0 
THEN RJ1=A : : RJ2=B : : RJ3=A+2 : : RJ4=B+ 
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2 : : GOTO 1460 

1430 IF Z (A+l,B+l)=OPP+OPP AND Z(A+2,B+2 

)=0 THEN RJ1=A :: RJ2=B :: RJ3=A+2 :: RJ 

4=B+2 : : GOTO 1460 

1440 IF B-2<1 THEN 1460 ELSE IF Z(A+1,B- 

l)=OPP AND Z(A+2,B-2)=0 THEN RJ1=A :: RJ 

2=B :: RJ3=A+2 :: RJ4=B-2 :: GOTO 1460 

1450 IF Z (A+l,B-l)=OPP+OPP AND Z(A+2,B-2 

)=0 THEN RJ1=A :: RJ2=B :: RJ3=A+2 :: RJ 

4=B-2 

14 60 RETURN 

147 REM CK REQUIRED JUMP DOWN M 

1480 RJ1,RJ2,RJ3,RJ4=0 :: IF A-2<1 THEN 

1530 ELSE IF B-2<1 THEN 1510 

1490 IF Z (A-l,B-l)=OPP AND Z(A-2,B-2)=0 

THEN RJ1=A : : RJ2=B : : RJ3=A-2 : : RJ4=B- 

2 : : GOTO 1530 

1500 IF Z (A-l,B-l)=OPP+OPP AND Z(A-2,B-2 

)=0 THEN RJ1=A :: RJ2=B :: RJ3=A-2 :: RJ 

4=B-2 : : GOTO 1530 

1510 IF B+2>8 THEN 1530 ELSE IF Z(A-1,B+ 

l)=OPP AND Z(A-2,B+2)=0 THEN RJ1=A :: RJ 

2=B : : RJ3=A-2 : : RJ4=B+2 

1520 IF Z (A-l,B+l)=OPP+OPP AND Z(A-2,B+2 

)=0 THEN RJ1=A :: RJ2=B :: RJ3=A-2 :: RJ 

4=B+2 

1530 RETURN 

154 REM CK REQUIRED JUMP DOWN P 

1550 RJ1,RJ2,RJ3,RJ4=0 :: IF A-2<1 THEN 

1600 ELSE IF B+2>8 THEN 1580 

1560 IF Z (A-l,B+l)=OPP AND Z(A-2,B+2)=0 

THEN RJ1=A : : RJ2=B : : RJ3=A-2 : : RJ4=B+ 

2 : : GOTO 1600 

1570 IF Z (A-l,B+l)=OPP+OPP AND Z(A-2,B+2 

)=0 THEN RJ1=A :: RJ2=B :: RJ3=A-2 :: RJ 

4=B+2 : : GOTO 1600 

1580 IF B-2<1 THEN 1600 ELSE IF Z(A-1,B- 

l)=OPP AND Z(A-2,B-2)=0 THEN RJ1=A :: RJ 

2=B :: RJ3=A-2 :: RJ4=B-2 :: GOTO 1600 

1590 IF Z (A-l,B-l)=OPP+OPP AND Z(A-2,B-2 

)=0 THEN RJ1=A :: RJ2=B :: RJ3=A-2 :: RJ 

4=B-2 

160 RETURN 

1610 REM DISPLAY MY MOVE 

1620 CALL HCHAR(5, 3,B+64) : : CALL HCHAR(5 

,5,A+48):: CALL HCHAR (5, 8 , D+64 ) : : CALL H 

CHAR (5, 10,C+4 8) : : RETURN 

1630 REM PLACE ON SCREEN 

1640 ROW=16- (X*2) +5 :: COL=Y*2+13 :: IF 

Z(X,Y)<>0 THEN 1670 ELSE IF (ROW+3)/4=IN 
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T ( (ROW+3) /A) AND (COL+3) /4=INT ( (COL+3) /4) T 

HEN 16 60 

1650 IF (ROW+1) /4=INT ( (ROW+1) /4)AND (COL+ 

1) /4=INT ( (COL+1) /4) THEN 1660 ELSE 1710 

1660 CALL HCHAR(ROW, COL, 116,2) : : CALL HC 

HAR( ROW+1, COL, 116,2) : : GOTO 1710 

1670 IF Z(X,Y)<0 THEN 1=120 ELSE 1=112 

1680 CALL HCHAR(ROW,COL, I) : : CALL HCHAR ( 

ROW+1, COL, 1+1) : : CALL HCHAR (ROW+1, COL+1 , 

1+2):: CALL HCHAR (ROW, COL+1, 1+3) 

1690 IF Z(X,Y)=-2 THEN 1 = 125 ELSE IF Z (X 

,Y)=2 THEN 1=117 ELSE 1710 

17 CALL HCHAR (ROW+1, COL, I) : : CALL HCHA 

R (ROW+1, COL+1, 1+1) 

1710 RETURN 

172 REM GAME OVER 

1730 IF TIME<0 THEN TOUT=TOUT+l : : CALL 

SOUND (250, 250, 1) : : TIME=LIM :: GOTO 810 

1740 IF Bl=14 THEN MSGl$="YOU RESIGNED . . 

...GAME OVER" :: GOTO 17 60 

1750 IF YOU<ME THEN MSG1$ = "I WIN 

. . . .GAME OVER" ELSE MSGl$ = "YOU WIN 

.... GAME OVER" 

1760 DISPLAY AT (2, 1 

1770 IF TOUT>0 THEN 

TIMED OUT"; TOUT; "TIMES" 
1780 CALL KEY (3, KEY, STAT) : : DISPLAY AT (2 
3,1):" " :: DISPLAY AT (23, 1) : " ENTER 
TO BEGIN NEW GAME" : : IF STAT=0 THEN 17 6 


1790 DISPLAY AT ( 1 , 1 ) : " " :: DISPLAY AT (2 
,1):" " :: DISPLAY AT (23, 1) : " " :: CALL 
VCHAR(1, 1, 32, 24*12) : : GOTO 240 
1800 REM HEADER 
1810 SUB HEADER 

182 CALL CLEAR :: CALL SCREEN(8):: RAND 
OMIZE :: CALL MAGNIFY(4) 

1830 CALL CHAR(36, "3C4299A1A1 99423CF9999 
999FF999999") 

1840 CALL CHAR(135, "183C7EFFFF7E3C18183C 
7EFFFF7E3C18" ) 

1850 CALL CHAR(128, "FFFFFFFFFFFFFFFF0000 
0000000000000000000000000000FFFFFFFFFFFF 
FFFF") 

1860 CALL CHAR(124, "0000000000000000FFFF 
FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000 0000 00 
0") 



:MSG1$ 

DISPLAY AT (1, 1) 



'YOU 



1870 DISPLAY AT (8, 10) 
1880 DISPLAY AT (10, 4) 
1890 DISPLAY AT (12, 4) 



"CHECKERS" 
"By A. Hawley" 
"Allan's Single Sy 
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stem" 

1900 DISPLAY AT(15,14):"$ % 1983" :: 1=1 

28 :: FOR A=l TO 15 :: IF 1=124 THEN 1=1 

28 ELSE 1=124 

1910 CALL SPRITE (#A, I, A+l, INT (RND*192) +1 

, INT (RND*256) +1, INT (RND*100) -50, INT (RND* 

100) -50) : : NEXT A 

1920 CALL KEY(0,K,S):: IF S=0 THEN 1920 

1930 CALL DELSPRITE (ALL) : : CALL MAGNIFY ( 

1):: CALL CHARSET :: SUBEND 
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Tank about Math 

Tank about Math is a creative exercise in simple math for children that teaches multiplication and 
division. Rewards are built into the lessons making the problems fun to work. 

When thefirst screen appears, therearethreegunners on the right si deand a tank on the left. Thescreen 
displays a random multiplication problem using two numbers between one and ten. When you enter an 
answer to the problem, oneof your gunners fires at thetank. If the answer is lower than the correct one, 
theshotfallsbelowthetank. Iftheanswer is too high then theshot passes above. With each wrong answer 
the tank takes a shot hitti ng one of your cannons unti I three wrong guesses are counted. T he computer 
then gives you the right answer and a new problem appears. 

After five correct answersthecomputer allows you to choose whether you would I iketo do multiplication 
or division andtheupper limitfor random numbers increasesto fifteen. For each five successful answers 
the numbers used in the lesson increase until they reach 25. A good suggestion for this program would 
be to add a short game or musical tune as a reward for each set of problems correctly answered. 

100 REM TANK ABOUT MATH 

110 REM ALLEN HOLLEY C 1983 

12 REM CRACKING THE 9 9/4A 

130 CALL CLEAR :: CALL SCREEN (8) 



"TANK ABOUT MATH" 

" By A. Hawley" 

" Allan's Single Sys 



140 DISPLAY AT (4, 6) 

150 DISPLAY AT (6, 1) 

160 DISPLAY AT (8, 1) 

tern" 

170 DISPLAY AT(10,20):"_ "1983" 

180 CALL CHAR(93, "FFFFFFFFFFFFFFFF") 

190 CALL CHAR(95, "F9999999FF999999") 

200 CALL CHAR(96, "3C4299A1A1 99423C" ) 

210 FOR 1=24 TO 1 STEP -1 : : IF 1=6 THEN 

230 
220 FOR 11=32 TO 1 STEP -1 : : CALL HCHAR 
(I, II, 93) : : NEXT II 

230 NEXT I :: FOR 11=32 TO 1 STEP -1 :: 
CALL HCHAR (6, II, 93) : : NEXT II 
240 CALL CHAR(128, "FC00FCFFFFFC00FC") 
2 5 CALL CHAR (129, "0000001818") 
260 CALL CHAR(136, "0183C7EF7F3F7FFF") 
270 CALL CHAR(137, "00001038703810") 
280 CALL CHAR(125, "894A2CF81F345291") 
290 CALL CHAR(124, "8142241818244281") 
300 CALL CHAR(94, "0000100070001011) 
310 CALL CLEAR :: CALL COLOR ( 13, 9, 8 ) : : CA 
LL COLOR(14,3, 8) 
32 REM MAIN PROGRAM 
330 CALL MAGNIFY(2):: MD,MS=1 ::LEVEL=15 

: : PLAYLEVEL=1 : : ON WARNING NEXT 
340 IF COUNK5 THEN 440 ELSE COUNT=0 : : 
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IF LEVEL>5 THEN LEVEL=LEVEL-5 ELSE LEVEL 

=LEVEL-1 

350 REM CHANGE LEVELS 

360 PLAYLEVEL=PLAYLEVEL+1 : : CALL DELSPR 

ITE(ALL):: CALL CLEAR :: CALL SCREEN(9) 

370 DISPLAY AT ( 8 , 6) : "CONGRATULATIONS !!! " 

:: DISPLAY AT (10, 10): "5 IN A ROW" 
380 DISPLAY AT ( 14, 7 ): "WELCOME TO LEVEL" 

:: DISPLAY AT (16, 13) :PLAYLEVEL 
390 CALL HCHAR(1, 1, 42, 96) : : CALL VCHAR(1 
,30,42,72):: CALL HCHAR (22, 1, 42, 96) : : CA 
LL VCHAR(1, 1, 42, 72) 

400 CALL SOUND (300, 392, 1) : : CALL SOUND (3 
00,349,1):: CALL SOUND (300, 333, 1 ): : CALL 

SOUND (500, 392, 1) : : CALL SOUND (300, 196, 1 
) 

410 CALL SOUND (700,220, 1) : : CALL SOUND (1 
000,300,30):: CALL SOUND ( 1, 300, 30 ): : CAL 
L SCREEN(8):: CALL CLEAR 
420 DISPLAY AT(10,6):"1 MULTIPLICATION" 

:: DISPLAY AT (12, 6)BEEP: "2 DIVISION" 
430 CALL KEY(3,MD, STAT) : : IF STAT=0 THEN 

430 ELSE IF MD<49 OR MD>50 THEN 430 ELS 
E MD=MD-4 8 

440 REM SET UP SCREEN 

450 CALL CLEAR :: CALL SPRITE (#10 , 128 , 9, 
12*8, 1*8) 
460 CALL SPRITE (#1, 136, 3, 6*8,29*8) : :CALL 

SPRITE (#2, 136, 3, 12*8,29*8) : : CALL SPRIT 
E(#3, 136,3, 18*8,29*8) 

470 CALL CLEAR :: DISPLAY AT (22 , 1 ) : "Pres 
s key to enter distance" 

480 RANDOMIZE :: CALL PEEK (-31880, Nl ): : 
N1=INT (Nl/LEVEL+1) : : RANDOMIZE :: CALL P 
EEK(-31880,N2) : : N2=INT (N2/LEVEL) : :N3=N1 
*N2 

4 90 REM PLAY 
500 ON MD GOTO 520,510 

510 DISPLAY AT (2, 1) : "DISTANCE TO TANK =" 
;N3; " A ";N2 :: HITGUN=0 :: GOTO 530 
520 DISPLAY AT (2 , 1 ): "DISTANCE TO TANK =" 
;N1; "X";N2 :: HITGUN=0 

530 DISPLAY AT (4,1):" " : : HITGUN=HITGUN+1 
540 GOSUB 590 :: DISPLAY AT (4 , 10 ): "ENTER 
HERE" :: ACCEPT AT (4, 21 ) VALIDATE (DIGIT) B 
EEP:ANS 

550 ON MD GOTO 570,560 
560 IF ANS=N1 THEN GOSUB 770 : : GOTO 340 

: : ELSE COUNT=0 : : IF ANS<N1 THEN OT=l 
:: GOTO 580 :: ELSE OT=2 :: GOTO 580 
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GOSUB 770 : 
IF ANS<N3 



640 



: GOTO 340 
THEN OT=l 

IF HITGUN=3 



57 IF ANS=N3 THEN 

: : ELSE COUNT=0 
ELSE OT=2 
580 GOSUB 690 : : GOSUB 

THEN 340 ELSE 530 
590 REM FIRE TANK (MISS) 

600 RANDOMIZE :: CALL PEEK (-31880, CI ): : 
C1 = INT (Cl/4 + 2) : : IF CK9 OR Cl>14 THEN 61 
ELSE 600 

610 CALL SOUND (100,220,2) : : MS=MS*-1 :: 
CALL SPRITE (#11, 129, 9, 12*8, 3*8, C1*MS, 50 ) 
620 CALL KEY (0, KEY, STAT) : : IF STATO0 TH 
EN 630 :: CALL POSITION (#11, PR11 , PC11 ): : 

IF PC11<8*29 THEN 620 ELSE CALL DELSPRI 
TE(#11) : : GOTO 600 
630 CALL DELSPRITE (#11) : : 
640 REM FIRE TANK (HIT) 
650 IF HITGUN=2 THEN HG=0 
=1 THEN HG=-11 ELSE HG=11 
660 CALL SOUND (100,220,2) : 
#11, 129, 9, 12*8, 3*8, HG, 50) 
670 CALL SOUND (950, 300, 30) 
1,300,30):: CALL PATTERN (#HITGUN, 124 ): : 
CALL DELSPRITE (#11) 

680 CALL SOUND (600,-7, 0) : : CALL DELSPRIT 
E (#HITGUN) : : RETURN 



RETURN 

ELSE IF HITGUN 

: : CALL SPRITE ( 

: : CALL SOUND ( 



REM FIRE CANNON (MISS) 
ON HITGUN GOTO 710,720,730 
AH3=6 : : IF OT=l THEN OC=20 
:: ELSE OC=15 :: GOTO 740 



GOTO 



GOTO 



ELSE OC 



690 
700 
710 
740 
720 AH3=12 : : IF OT=l THEN OC=15 

740 :: ELSE OC=12 :: GOTO 740 
730 AH3=18 : : IF OT=l THEN OC=ll 
= 9 

740 CALL SOUND (300,-3,2) : : CALL SPRITE (# 
4, 12 9, 13,AH3*8-8, 28*8-4, -10, -10) 
750 FOR AH=1 TO OC :: CALL SOUND ( 10, 300, 
30):: CALL SOUND ( 1, 300, 30 ): : CALL MOTION 
(#4,-10+AH,-10) : : NEXT AH 

760 CALL POSITION(#4,PRll,PCll) : : IF PC11 
>4 THEN 760 ELSE CALL DELSPRITE (#4 ): : RE 
TURN 

770 REM FIRE CANNON (HIT) 
780 ON HITGUN GOTO 790,800,810 
790 COUNT=COUNT+l :: AH3=6 :: OC=17 :: G 
OTO 820 

800 AH3=12 :: OC=13 :: GOTO 820 
810 AH3=18 : : OC=10 
820 CALL SOUND (300,-3,2) : : CALL SPRITE (# 



4, 129, 13,AH3' 



i,2S 



-4,-10,-10) 
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830 FOR AH=1 TO OC :: CALL SOUND ( 10, 300 , 
30):: CALL SOUND ( 1, 300, 30 ): : CALL MOTION 
(#4,-10+AH,-10) : : NEXT AH 
840 REM CALL POSITION (#4 , PR11 , PC11 ): : IF 

PC11>4 THEN 2980 ELSE CALL DELSPRITE(#4 
) : : RETURN 
850 CALL PEEK(-31877,AH9) : : IF AH9 AND 32 

THEN 860 ELSE 850 
860 CALL PATTERN (#10, 125) : : CALL DELSPRI 
TE(#4):: CALL SOUND ( 600, -7, ) : : CALL SOU 
ND (1, 300, 30) : : CALL DELSPRITE (#10 ) : : RET 
URN 
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Hangman for Two (Speech Synthesizer optional) 

Hangman is a computer version of the game we all played as children where one player would draw a 
gallows and some dashes representing the letters of a word, and the other player would try to guess the 
word by guessing the letters. If the letter guessed was not among those that made up the word, a part of 
a hanging man was added to the picture. The object was to guess the word before the hanging man was 
completely drawn. Sometimes, the hanging man had a head, body, arms, legs, and all hisfingers and toes. 
This, of course, gavetheguesser achanceto win. I n this version of hangman, you only have seven guesses 
beforeyou arecompletely hung. This computer version has several features not found in other computer 
versions: 

1. Automatic score-keeping 

2. The ability to play against time 

3. Entry correction 

4. Automatic round keeping 

5. The ability to enter phrases 

6. Automatic blank removal 

Automatic score keeping 

The alphabet isdisplayedon the top of the screen with a number under each letter. This number isthe 
amount added to theguesser'sscoreeachtimethat letter is successfully guessed. If a letter isguessedand 
the word contains two of that letter, twice that letter's value is added to the guesser's score. 

If the entire word or phrase is guessed, the guesser receives four points for every un-guessed letter 
remaining in the word or phrase. Therefore it is advantageous for a guesser to guess the entire word or 
phrase when hecan.Thepenalty, if wrong, isthesameas missing a guess for one letter. I f a guesser enters 
more than one letter as a guess, Hangman assumes the guesser is attempting to guess the entire word or 
phrase and compares what was entered against the word or phrase to be guessed. 

Playing against time 

When the game begins, Hangman asks for the players' names and then Hangman asks against what time 
interval they wish to play. Values from Oto 999 are accepted, but values between 10 and 30 seconds are 
recommended. A countdown of the seconds are shown on the left-hand side of the gallows picture. 

Theguesser has only theamount of timespecified to makea guess; if hedoes not guess correctly, another 
piece is added to the hanging man. When playing against timethe left arrow and the ERASE keys are 
operational in addition toenteringupper-caselettersandspaces-Thiswasdonetoensureeasy correction 
of entries. 
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Entry correction 

If a player enters a word or phrase to be guessed and realizes a mistake has been made, or changes his 
mind, theentry can becorrectedbyentering'CE;for "correct entry.'Thiscan bedoneonlyif noguesshas 
yet been made. 

Automatic rounds 

Thisgameisplayedin rounds. Oneroundiscompletewhen each player has guessed onetime. Any round 
number ending in .5 indicates the middle of a round. 

Enter phrases 

In most versions of Hangman, blanks (spaces) are not allowed. Consequently only si nglewords could be 
entered. This version allows blanks; Thus you can enter phrases such as "OVER THE RAINBOW" For 
example, you may wish to pi ay a game in which only thenames of movies areal lowed. Up to 24 upper-case 
letters and blanks can be entered. 

Automatic blank removal 

I f a pi ayer accidental I y enters morethan one bl ank between words when enteri ng a phrase or i n guessi ng 
a phrase, HANGMAN will automatically removeall but one blank. This helps ensurevalid comparisons 
when a player attempts to guess an entire phrase. 

100 REM HANGMAN FOR TWO 

110 REM COPYRIGHT JOHN COPE 83 

12 REM CRACKING THE 99/4A 

130 REM SPEECH (OPTIONAL) 

14 CALL CLEAR 

150 CALL SCREEN (12) 

160 A1$="ABCDEFGHIJKLM" :: A2$="NOPQRSTU 

VWXYZ" 

170 DISPLAY AT (1, 3) :A1$&A2$ 

180 Nl$="1332142418513" :: N2$=" 11391111 

44849" 

190 DISPLAY AT (2, 3) :N1$&N2$ 

200 GOSUB 2350 1TIMING ? 

210 DISPLAY AT (5,2) : "NAME 1 (1 TO 6 LETT 

ERS) " 

220 ACCEPT AT (6, 2) SIZE (6) :NAME1$ 

230 L=LEN(NAME1$) : : L=INT ( ( 6-L) /2 ) : : CN1 

=3+L 

240 DISPLAY AT ( 6, 2 ) SIZE ( 8 ) 

250 DISPLAY AT ( 6, CN1 ) : NAME1$ 

260 DISPLAY AT (5, 2 ): "NAME 2 (1 TO 6 LET 

TERS) " 

27 ACCEPT AT (6, 11) SIZE (6) :NAME2$ 
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280 L=LEN(NAME2$ 
= 12 + L 

290 DISPLAY 

310 DISPLAY 

310 DISPLAY 

320 DISPLAY 

330 DISPLAY 



L=INT( (6-L) 12) 



AT (6, 11) SIZE (8) 

AT (6,CN1) :NAME2$ 

AT (5,2) SIZE (24) 

AT(8,4) :USING "###":000 

AT(8, 13) :USING "###":000 



CN1 



3407 DISPLAY AT ( 11, 3) : "LETTERS GUESSED" 



350 
,3) 

360 
370 
381 
390 
400 
410 
420 
,3) 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
C=4 
690 
TO 
700 
710 



CALL COLOR (13, 6, 6) : : CALL COLOR (14, 3 

R=4 : : FOR 1=1 TO 8 

CALL HCHAR(R,21, 128, 10) 

R=R+1 : : NEXT I 

R=12 : : FOR 1=1 TO 7 

CALL HCHAR(R,21, 136, 10) 

R=R+1 : : NEXT I 

CALL COLOR (12, 2, 6) : : CALL COLOR (11, 2 

CALL CHAR(120, "3C3C3C3C3C3C3C3C" ) 

CALL CHAR(121, "FFFFFFFF00000000 " ) 

CALL CHAR(122, "FFFFFFFFFFFFFFFF" ) 

CALL CHAR(123, "F0F0F0F0F0F0F0F0 " ) 

CALL CHAR(124, "0F0F0F0F0F0F0F0F" ) 

CALL CHAR(125, "0000FFFFFFFF0000 " ) 

CALL CHAR(126, "3C3CFFFFFFFF3C3C" ) 

CALL CHAR(112, "3C3C3C3C3C3C3C3C" ) 

CALL CHAR(113, "FFFFFFFFFFFFFFFF") 

CALL CHAR(114, "FFFF000000000000 " ) 

CALL CHAR(115, "FCFC3C3C3C3C3C3C" ) 

CALL CHAR(116, "3F3F3C3C3C3C3C3C" ) 

CALL CHAR(127, "FFFFFFFF3C3C3C3C" ) 

CALL CHAR(95, "7E7E7E7E7E7E7E7E" ) 

CALL HCHAR(4,24, 127) 

CALL HCHAR(4,25, 121, 3) 

CALL HCHAR(4,28, 127) 

CALL VCHAR(5,28, 120, 7) 

CALL VCHAR(12,28, 112, 6) 

CALL HCHAR(18,2 6, 113, 5) 

DISPLAY AT (19, 3) SIZE (1) : "*" 

OPTION BASE 1 

DIM LG$ (26) ,L$ (24) ,TLG$ (24) 

A1R=22 : : A1C=1 : : A2R=23 : : A2C=1 

ROUND= .5 : : L=0 

WCOLS=2 : : WROWS=20 : : SC1R=8 : : SCI 

: : SC2R=8 : : SC2C=13 

RANDOMIZE :: N=10- ( 10*RND) : : FOR 1=1 

N :: P=INT (1+ (2*RND) ) : : NEXT I 

REM CHANGE TURNS 



ROUND=ROUND+ . 5 



NHITS=0 



NNB=0 



DRAW=0 
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720 DISPLAY AT (4 , 7 ) SIZE ( 12 ) : "ROUND" ; ROUN 

D 

730 DISPLAY AT ( 13, 3) SIZE ( 15) : : DISPLAY A 

T(15,3)SIZE(15) : : DISPLAY AT ( 17 , 3) SIZE ( 1 

5):: DISPLAY AT (20, 3) SIZE (24) 

740 CALL VCHAR(5,24, 128, 7) : : CALL VCHAR ( 

7,23,128,2):: CALL VCHAR (7, 25, 128, 2) : : C 

ALL HCHAR(10, 22, 128, 5) 

750 CALL VCHAR (12, 24, 136) : : CALL HCHAR(1 

3,23,136,3) :: CALL VCHAR (14,23,136,3):: 

CALL VCHAR (14, 2 5, 136, 3) 

760 FOR 1=1 TO 26 :: LG$ ( I ) ="NULL" :: NE 

XT I 

770 IF P=l THEN P=2 ELSE P=l 

780 IF P=l THEN GIVER$=NAME1$ ELSE GIVER 

$=NAME2$ 

7 90 IF GIVER$=NAME1$ THEN GUESSER$=NAME2 

$ ELSE GUESSER$=NAME1$ 

800 DISPLAY AT (A1R,A1C) : ">> "&GUESSER$&" 

, TURN YOUR HEAD" 

810 DISPLAY AT (A2R,A2C) : ">> "&GIVER$&", 

ENTER WORD/PHRASE" 

820 ACCEPT AT (20, 3) SIZE (24) VALIDATE (UALP 

HA, " ") : PHRASE $ 

830 PARM=1 : : GOSUB 2180 

840 IF LEN(PHRASE$)=0 THEN 800 

850 IF ASC (PHRASE$)=32 THEN 800 

860 DISPLAY AT (20 , 3) SIZE (24 ) 

870 L=LEN(PHRASE$) 

880 FOR 1=1 TO L 

890 L$ (I)=SEG$ (PHRASE$, I, 1) 

900 IF ASC (L$ (I) ) <>32 THEN NNB=NNB+1 

910 NEXT I 

920 R=20 :: C=3 :: FOR 1=1 TO L :: IF L$ 

(1)=" " THEN 930 ELSE DISPLAY AT(R,C):"_ 

II 

930 C=C+1 : : NEXT I 
940 LGROW=13 :: LGCOL=3 
950 G=0 

9 60 REM GET A NEW LETTER 
970 G=G+1 

98 GOSUB 27 90 ! CLEAR AREA 
990 IF T$="YES" THEN GOSUB 2450 : : GOTO 
1020 

1000 DISPLAY AT (A1R,A1C) : ">> "&GUESSER$& 
", ENTER LETTER/GUESS" 

1010 ACCEPT AT (A2R,A2C) SIZE (24) VALIDATE ( 
UALPHA, " ") :LG$ (G) 

1020 IF G>1 THEN 1030 :: IF LG$(G)o"CE" 
THEN 1030 :: NNB=0 :: GOTO 800 



62 



The Cyc: Cracking the 99/4A 



1030 IF LEN(LG$ (G) ) =0 THEN 980 

1040 F$=SEG$ (LG$ (G) ,1,1) : : IF F$=" " THE 

N 980 

1050 IF LEN(LG$ (G) ) =1 THEN 1060 ELSE GPH 

RASE$=LG$ (G) : : G=G-1 : : PARM=2 : : GOSUB 

2180 : : GOTO 1670 

1060 FOR 1=1 TO G-l 

1070 IF LG$ (G) <>LG$ (I) THEN 1120 ELSE CAL 

L SOUND (50 0, 44 0, 4) 

1080 GOS11B 2790 

1090 DISPLAY AT (A1R,A1C) SIZE (28) : ">> ERR 

OR. LETTER GUESSED" 



1100 
1110 
1120 
1130 
G) 

1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1760 



FOR 1=1 TO 350 : : NEXT 
G=G-1 : : VRC=1 : : GOTO 
NEXT I : : VRC=0 
DISPLAY AT (LGROW,LGCOL) 



I 
960 

SIZE(l) :LG$ ( 



LGCOL=LGCOL+2 
IF LGCOL<18 THEN 
LGCOL=3 : : LGROW^ 
GOTO 1180 
REM CHECK IF HIT 
RC=0 

FOR J=l TO L 
IF LG$ (G)=L$ (J) THEN 
NEXT J 

REM CHECK IF MATCH 
IF RC<>0 THEN GOSUB 
: : GOTO 9 60 ! GET 



1170 
LGROW+2 



GOSUB 1250 



1280 ELSE GOSUB 
ANOTHER LETTER 



1250 REM MATCH: SHOW LETTERS 

1260 RC=RC+1 :: WCOL=WCOLS+J :: NHITS=NH 

ITS + 1 

1270 DISPLAY AT (WROWS, WCOL) SIZE ( 1 ) : LG$ ( I 

) : : RETURN 

1280 REM MATCH: FIND SCORE 

1290 CALL SAY ("GOOD GUESS") 

1300 B=ASC(LG$ (I) ) -64 

1310 IF B=26 THEN 1460 

1320 ON B GOTO 1330,1340,1350,1360,1370, 

1380, 1390, 1400, 1410, 1420, 1430, 1440, 1450, 

1470, 1480, 1490, 1500, 1510, 152 0, 1530, 1540, 

1550, 1560, 1570, 1580 



1330 


S= 


(1*RC) : 


: GOTO 


1610 


1340 


s= 


(3*RC) : 


: GOTO 


1610 


1350 


s= 


(3*RC) : 


: GOTO 


1610 


1360 


s= 


(2*RC) : 


: GOTO 


1610 


1370 


S= 


(1*RC) : 


: GOTO 


1610 


1380 


s= 


(4*RC) : 


: GOTO 


1610 


1390 


s= 


(2*RC) : 


: GOTO 


1610 


1400 


s= 


(4*RC) : 


: GOTO 


1610 
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1410 


S=(1*RC) 


: GOTO 


1610 


1420 


S=(8*RC) 


: GOTO 


1610 


1430 


S=(5*RC) 


: GOTO 


1610 


1440 


S=(1*RC) 


: GOTO 


1610 


1450 


S=(3*RC) 


: GOTO 


1610 


1460 


S=(9*RC) 


: GOTO 


1610 


1470 


S=(1*RC) 


: GOTO 


1610 


1480 


S=(1*RC) 


: GOTO 


1610 


1490 


S=(3*RC) 


: GOTO 


1610 


1500 


S=(9*RC) 


: GOTO 


1610 


1510 


S=(1*RC) 


: GOTO 


1610 


1520 


S=(1*RC) 


: GOTO 


1610 


1530 


S=(1*RC) 


: GOTO 


1610 


1540 


S=(1*RC) 


: GOTO 


1610 


1550 


S=(4*RC) 


: GOTO 


1610 


1560 


S=(4*RC) 


: GOTO 


1610 


1570 


S=(8*RC) 


: GOTO 


1610 


1580 


S=(4*RC) 


: GOTO 


1610 


1590 


S=(9*RC) 


: GOTO 


1610 


1600 


S=(9*RC) 






1610 


IF P = l TI 


IEN SCORE2=SCORE2+S ELSE SC 


OREl = 


=SCOREl+S 






1620 


GOSUB 21 J 


30 




1630 


IF NHITS< 


CNNB THEN RETURN ELSE GOSUB 


2790 






1640 


DISPLAY 1 


VT(A1R,A1C) :"» "&GUESSER$& 


", YOU GOT THI 


ZM ALL" 




1650 


CALL SAY 


("YOU GOT M ALL") : : DISPLAY 


AT (A2R,A2C) : ' 


' PRESS ANY KEY" 


1660 


CALL KEY 


(0,RV, SV) : : IF SV=0 THEN 16 


50 ELSE GOTO " 


700 




1670 


if gphra; 


3E$=PHRASE$ THEN DISPLAY AT 


(wrows,wcols+: 


L) :GPHRASE$ ELSE GOTO 1700 


1680 


IF GPHRAJ 


3E$=PHRASE$ THEN GOSUB 2790 


: : DISPLAY A: 


[ (A1R,A1C) : ">> CORRECT !!" 


: : DISPLAY AT 

II 


(A2R,A2C):" PRESS ANY KEY 


1690 


CALL SAY 


("CORRECT GOOD WORK"):: GOT 


O 1730 






1700 


GOSUB 17( 


50 :: CALL SAY ("SORRY NOT C 


ORRECT") : : DI< 


3PLAY AT (A1R,A1C) : ">> SORRY 


, WRONG" 






1710 


CALL sour 


JD (500, 440, 5) : : FOR 1 = 1 TO 


350 








1720 


NEXT I : 


GOTO 960 


1730 


IF P=l TI 


IEN SCORE2=SCORE2+ (4* (NNB-N 


HITS) )ELSE SC( 


)REl=SCOREl+ (4* (NNB-NHITS) ) 


1740 


GOSUB 211 


30 




1750 


CALL KEY 


(0,RV, SV) : : IF SV=0 THEN 17 


50 : 


GOTO 70C 


) 
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17 60 REM NO MATCH 
177 CALL SAY("UHOH") 

17 8 DRAW=DRAW+1 

1790 ON DRAW GOSUB 1860,1920,1980,2010,2 

040,2090,2120 

1800 IF DRAW<7 THEN RETURN 

1810 DISPLAY AT (WROWS, WCOLS + 1 ) SIZE (24) :P 

HRASE$ 

1820 GOSUB 2790 

1830 DISPLAY AT (AIR, A1C) : ">> "&GUESSER$& 

", YOU'RE HUNG !!" :: CALL SAY ("SO SORRY 

") 

1840 DISPLAY AT (A2R, A2C) : " PRESS ANY K 

EY" 

1850 CALL KEY(0,RV, SV) : : IF SV=0 THEN 18 

5 : : GOTO 700 

18 60 REM DRAW HEAD 

1870 CALL VCHAR(7, 23, 124,2) 

1880 CALL VCHAR(7, 24, 122,2) 

1890 CALL VCHAR(7, 25, 123,2) 

1900 CALL VCHAR(5, 24, 120,2) 

1910 RETURN 

192 REM DRAW BODY 

1930 CALL HCHAR(9,24, 120) 

1940 CALL HCHAR(10,24, 126) 

1950 CALL HCHAR(12,24, 112) 

1960 CALL HCHAR(11,24, 120) 

197 RETURN 

198 REM DRAW RIGHT ARM 
1990 CALL HCHAR(10, 22, 125,2) 
2000 RETURN 

2010 REM DRAW LEFT ARM 

2020 CALL HCHAR(10, 25, 125,2) 

2 030 RETURN 

2040 REM DRAW HIPS 

2 050 CALL HCHAR(13,2 3, 116) 

2 60 CALL HCHAR(13,24, 114) 

2 07 CALL HCHAR(13,25, 115) 

2080 RETURN 

2 90 REM DRAW RIGHT LEG 

2100 CALL VCHAR(14,23, 112, 3) 

2110 RETURN 

212 REM DRAW LEFT LEG 

2130 CALL VCHAR(14,25, 112, 3) 

214 RETURN 

2150 DISPLAY AT (SC1R, SC1C) SIZE (3) : USING 

"###" :SCOREl 

2160 DISPLAY AT (SC2R, SC2C) SIZE (3) : USING 

"###" :SCORE2 

217 RETURN 
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2180 

CES 

2190 

2200 

2210 

2220 

2230 

2240 

PI 

2250 

2260 

2270 

2280 

2290 



REM REMOVE EXCESS 

ON PARM GOTO 2200,2220 
NPHRASE$=PHRASE$ 
GOTO 2230 
NPHRASE$=GPHRASE$ 
Pl=POS (NPHRASE$, " ",1) 
P2=POS (NPHRASE$, " ",P1+1) 



SPA 



DIF=P2- 



IF P1=0 OR P2=0 THEN 2280 

IF DIF=1 THEN 2290 

P1=P2 : : GOTO 2240 

ON PARM GOTO 2310,2330 

NPHRASE$ = SEG$ (NPHRASE$, 1,P1) 
PHRASE$,P2+1,LEN(NPHRASE$) ) 
2300 GOTO 2230 

PHRASES=NPHRASE$ 

GOTO 2340 

GPHRASE$=NPHRASE$ 

RETURN 

REM ASK IF TIMING IS WANTED 



&SEG$ (N 



2310 
2320 
2330 
2340 
2350 
2360 



:"TIME LIMIT 



: GOTO 2420 
RETURN 

"ENTER INTE 



DISPLAY AT (5,2) SIZE (28) 
ON GUESSING? Y/N" 
2370 CALL KEY(0,RV, SV) 
2380 IF SV=0 THEN 2370 
2390 IF RV=89 THEN T$="YES" 
2400 IF RV=78 THEN T$="NO" : 
2410 GOTO 2360 
2420 DISPLAY AT (5, 2 ) SIZE (28 ) 
RVAL IN SECONDS" 

2430 ACCEPT AT ( 6, 2 ) SIZE (3) VALIDATE (DIGIT 
) : INTVL 
244 RETURN 

2450 REM ACCEPT LETTER OR GUESS ON TIMER 
2460 IF VRC=1 THEN INTER=INTER-1 :: T=l 

: : GOTO 2480 

2470 INTER=INTVL : : GOSUB 2790 : : T=l : : 
IF LA=1 THEN E=E :: GOTO 2480 ELSE E,LA 
= 

2480 DISPLAY AT (AIR, A1C) : ">> "&GUESSER$& 
", ENTER LETTER/GUESS" 
2490 FOR 1=1 TO INTER 

2500 DISPLAY AT ( 18, 20 ) SIZE (4 ): INTER 
2510 FOR J=l TO 27 
2 52 CALL KEY(0,RV, SV) 
2530 IF SV=-1 THEN GOTO 2560 
2540 NEXT J 
2550 INTER=INTER-1 : : NEXT I : : CALL SAY 

("OUT OF TIME"):: GOSUB 1760 :: GOTO 247 
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2560 IF RV=32 AND T=l THEN 2540 : : IF RV 

=32 AND TOl THEN 2570 : : IF RV<65 THEN 

2620 :: IF RV>90 THEN 2620 :: LA=0 

2570 TLG$ (T)=CHR$ (RV) : : DISPLAY AT (A2R, A 

2C+T+1) :TLG$ (T) 

2580 DISPLAY AT (A2R, A2C+T+2 ) : "_" :: T=T+ 

1 

2590 IF T>24 THEN CALL SOUND (500, 440, 5) : 

: T=T-1 :: GOTO 2480 ELSE GOTO 2540 

2600 FOR 1=1 TO 350 :: NEXT I :: GOTO 24 

70 

2610 GOTO 2540 

2 62 REM NON-ALPHA INPUT 

IF RV=13 THEN GOTO 2700 

IF RV=8 THEN T=T-2 : : IF T<0 THEN T 



2630 

2640 
= 

2650 
2660 



IF RV=8 THEN 2580 

IF RV=7 THEN 2770 ELSE T=T-1 : : IF 
T<=0 THEN T=l 
2670 CALL SOUND (500 , 440 , 5) 
2680 REM DISPLAY AT (AIR, A1C) : ">> INVALID 

CHARACTER" : : FOR 1=1 TO 350 : : NEXT I 
2690 DISPLAY AT (AIR, A1C) : GUESSER$& " , ENTE 
R LETTER/GUESS" :: INTER=INTER-1 :: GOTO 

2490 
2700 REM CHECK FOR HIT. IF 1 {ENTER CHA 
RACTER ENTERED, PRESSED} THEN ASSUME HE' 
S GUESSING A LETTER 

2710 IF T=l THEN GOSUB 2790 : : DISPLAY A 
T(A1R,A1C) :GUESSER$&", ENTER LETTER/GUESS 
" : : INTER=INTER-1 : : GOTO 2490 
2720 IF T=2 THEN LG$ (G) =TLG$ (T-l ) : : RETU 
RN 

2730 TGPH1$=TLG$ (1) &TLG$ (2) &TLG$ (3) &TLG$ 
(4) &TLGS (5) &TLG$ (6) &TLG$ (7) &TLG$ (8) &TLG$ 
(9) &TLGS (10) &TLG$ (11) &TLG$ (12) 
2740 TGPH2$=TLG$ (13) &TLG$ (14) &TLG$ (15) &T 
LG$ (16) &TLGS (17) &TLG$ (18) &TLG$ (19) &TLG$ ( 
20) &TLGS (21) &TLG$ (22) &TLG$ (23) 
2750 TGPH3$=TLG$ (24) 

27 60 LG$ (G)=SEG$ (TGPH1$&TGPH2$&TGPH3$ , 1, 
T-l) : : RETURN 
277 REM ERASE 

2780 LA=1 :: E=E+1 :: IF E<=2 THEN GOTO 
2470 ELSE T=l :: GOSUB 2790 :: GOTO 2480 
27 90 REM CLEAR AREAS 

2800 DISPLAY AT (AIR, A1C) : : DISPLAY AT (A2 
R,A2C) 
2810 RETURN 
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Othello 

by Brian Prothro 

Othello is a popular game in which a player attempts to end up with the majority of pieces on the board. 
A move consists of "outflanking" your opponent, flipping hisdisk(s) over to your col or. Tooutflank means 
to placea move so that your opponent's row (or rows) of disk(s) is bordered at each end by a disk of your 
color. 

Example: a x x x b 

Where: "X" stands for your opponents pieces. 

"A" is your piece al ready on the board. 
"B" is your move to outflank your opponents row. 

All pieces then flip over and become your colored pieces. 

In this version of Othello you playthecomputer, but don t be deceived. The computer does somethinking 
before it moves. A move is made by enteri ng thedesi red row and col umn you want to appear on. A capture 
must be made on each turn or your move must be forfeited. A disk may outflank any number of disks in 
oneor morerows, and i ncl udes thedi agonal di rections as wel I . Becareful , unexpected results may change 
a great strategy when the computer makes a movethat takes two or even three rows of your pieces! 

100 REM OTHELLO 

110 REM CRACKING THE 99/4A 

120 DIM A(9, 9) ,R4 (8) ,C4 (8) ,C$ (8) ,D$ (2) 

130 CALL CLEAR 

14 CALL COLOR (8, 9, 16, 13, 16, 15, 14,5, 16) 

150 CALL SCREEN (6) 

160 GOSUB 2580 

170 GOSUB 2830 

180 PRINT "Display instructions? (y/n) " 

190 CALL KEY (0, KEY, ST) : : IF ST=0 THEN 19 



200 IF KEY=78 THEN 240 

210 PRINT "you are blue and must o 

ut flank the computer, thismeans you mus 

t place your move so that you" 

220 PRINT "sandwich the computers pieceb 

etween two of your own. watch out, on 

e move can take up to three rows" 

230 REM INITIALIZE 

240 F2=0 

250 PRINT : "Shall i use my" : "best strate 

gy? (y/n)?" 

260 S2=0 

270 CALL KEY (0, KEY, ST) : : IF ST=0 THEN 27 



68 



The Cyc: Cracking the 99/4A 



78 THEN 300 



'Wait, while i choose": "a s 





280 IF KEY= 

290 S2=2 

300 PRINT : 

trategy . . . " 

310 B=-l 

320 W=l 

330 DS (B+1)="X" 

340 D$ (0+1)=" ." 

350 DS (W+1)="0" 

360 FOR K=l TO 8 

370 READ R4 (K) , C4 (K) 

380 NEXT K 

390 DATA 0, 1,A,-1, 1,B,- 

1,E,1,-1,F,1,0,G,1,1,H 



,C$(K) 
B,-1,0,C,-1,-1,D,0, 



,A(4,4) 

,A(4,5) 
=2 



A(5,5),A(4,4)=W 

A(5,4) 

P1,H1 = 

Nl=4 

Z=0 

REM PLAYER CHOICES 

P=W : : H=B 

PRINT :"Do you want 



to go first? (y/ 



400 

410 

420 

430 

440 

450 

460 

470 

n) " 

480 CALL KEY (0, KEY, ST) : : IF ST=0 THEN 48 



490 IF KEY=78 THEN 550 

50 CALL CLEAR 

510 GOSUB 2670 

520 REM PRINT INITIAL BOARD 

530 GOSUB 2430 

540 GOTO 1140 

55 CALL CLEAR 

560 GOSUB 2670 

570 GOSUB 2430 

58 REM COMPUTERS MOVE 

590 Bl=-1 

600 R3,C3=0 

610 T1=P 

620 T2=H 

630 REM LOOK FOR EMPTY SQUARE 

640 FOR R=l TO 8 

650 GOSUB 2580 

660 FOR C=l TO 8 

670 IF A(R,C)<>0 THEN 890 

680 REM DOES SQUARE HAVE PLAYER AS A NEI 

GHBOR? 

690 GOSUB 2030 

700 DISPLAY AT (21, 6) : "my move. ..": " che 

eking row " ; R 
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710 IF Fl=0 THEN 890 

72 REM FOUND PLAYER, HOW MANY CAN WE FL 

IP 

730 U=-l 

740 GOSUB 2150 

750 REM EXTRA POINT FOR BORDER LOCATION 

760 IF S1=0 THEN 890 

770 IF (R-l) * (R-8) <>0 THEN 790 

780 S1=S1+S2 

790 IF (C-l) * (C-8) <>0 THEN 820 

800 S1=S1+S2 

810 REM IS POSITION BETTER THAN BEST SO 

FAR? 

820 IF SKB1 THEN 890 

830 IF S1>B1 THEN 850 

84 REM YES 

850 B1=S1 

860 R3=R 

870 C3=C 

880 REM END OF LOOP 

8 90 NEXT C : : NEXT R 

900 REM COULD WE DO ANYTHING? 

910 IF B1>0 THEN 970 

92 REM NO 

930 IF Z=l THEN 1720 

940 Z=l 

950 GOTO 1140 

9 60 REM MAKE THE MOVE 
970 Z=0 

980 DISPLAY AT(21,l):"i move to" 

990 DISPLAY AT (21, 12 ) : R3; " , " ; C$ (C3) : " " 

1000 R=R3 

1010 C=C3 

1020 U=l 

1030 GOSUB 2150 

1040 P1=P1+S1+1 

1050 H1=H1-S1 

1060 N1=N1+1 

1070 FOR T=l TO 420 : : NEXT T 

1080 DISPLAY AT(21,l):"i get";Sl:"of you 

r pieces" 

10 90 REM PRINT OUT BOARD 
1100 GOSUB 2430 

1110 REM TEST FOR END OF GAME 

1120 IF H1=0 OR Nl=64 THEN 1720 

1130 REM HUMANS MOVE 

1140 Tl=H : : T2=P 

1150 GOSUB 2580 

1160 DISPLAY AT (21,1): "9 to forfeit" :"0 

to quit" 
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1170 DISPLAY AT (21, 19) : "your move:" 

1180 DISPLAY AT (22,20) : "row col" 

1190 ACCEPT AT (23,21) SIZE (1)BEEP:Q$ 

1200 IF Q$="0" THEN 2020 

1210 IF Q$="9" THEN 1260 

1220 IF Q$<"1" OR Q$>"8" THEN 1190 

1230 R=VAL(Q$) 

1240 ACCEPT AT (23, 25) VALIDATE ("ABCDEFGH" 

) SIZE (1)BEEP:X$ 

1250 GOTO 1350 

1260 GOSUB 2580 

1270 DISPLAY AT (21 , 1 ) : "you 

turn? (y/n) " 



1280 

280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

try 



CALL KEY (0, KEY, ST) 



forfeit your 
IF ST=0 THEN 1 



IF KEY<>89 THEN 1150 
GOSUB 2580 

DISPLAY AT (21, 1) : "great, I'll go." 
IF Z=l THEN 1720 
Z = l 

GOTO 590 
FOR C=l TO 8 
IF C$ (C)=X$ THEN 1400 
NEXT C 
GOTO 1190 

REM CHECK IF BLANK 
IF A(R,C)=0 THEN 1450 
GOSUB 2580 

DISPLAY AT (21, 1) : "That's occupied, 
again . " 



1430 GOTO 1190 

1440 REM CHECK FOR LEGAL NEIGHBOR 

1450 GOSUB 2030 

1460 IF Fl=l THEN 1510 

1470 GOSUB 2580 

1480 DISPLAY AT (21 , 1 ) : "That ' s not next t 

o one of mypieces, try again." 

1490 GOTO 1190 

150 REM CHECK IF LEGAL RUN 

1510 U=-l 

1520 GOSUB 2150 

1530 IF S1>0 THEN 1580 

1540 GOSUB 2580 

1550 DISPLAY AT (21, 1 ): "Sorry, that doesn 

't flank a row, try again." 

1560 GOTO 1190 

1570 REM IF LEGAL, MAKE PLAYERS MOVE 

1580 Z=0 

1590 GOSUB 2580 

1600 DISPLAY AT (21, 1) : "That gives you";S 
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l:"of my pieces" 

1610 U=l 

1620 GOSUB 2150 

1630 H1=H1+S1+1 

1640 P1=P1-S1 

1650 N1=N1+1 

16 614 REM PRINT OUT BOARD 

1670 GOSUB 2430 

168 REM TEST FOR END OF GAME 

1690 IF P1=0 OR Nl=64 THEN 1720 

1700 GOTO 590 

1710 REM END OF GAME DETAILS 

1720 GOSUB 2580 

1730 DISPLAY AT (20, 1 ) : "you have" ; HI ; "pie 

ces and":"i have" ; PI; "pieces" 

1740 IF H1=P1 THEN 1780 

1750 IF H1>P1 THEN 1800 

1760 DISPLAY AT (22, 1 ): "sorry, i won that 

one" 
1770 GOTO 1810 

1780 DISPLAY AT (22,1): "a tie" 
1790 GOTO 2000 

1800 DISPLAY AT(22,l):"i guess you win" 
1810 P1=P1-H1 
1820 IF P1>0 THEN 1840 
1830 P1=-C1 
1840 P1=(64*P1) /Nl 
1850 FOR T=l TO 300 : : NEXT T 
1860 IF P1=0 THEN 1910 
1870 IF PK11 THEN 1930 
1880 IF PK25 THEN 1950 
1890 IF PK39 THEN 1970 
1900 IF PK53 THEN 1990 

1910 DISPLAY AT (23, 1) : "you played a pert 
ect game ! ! ! " 
1920 GOTO 2000 

1930 DISPLAY AT (23, 1 ) : "you ' re great, i t 
hought you had never played before! ! !" 
1940 GOTO 2000 
1950 DISPLAY AT (23, 1 ): "pretty good game. 

but i got close ! " 
1960 GOTO 2000 
1970 DISPLAY AT (23, 1 ): "maybe next time. 

i take the game this time." 
1980 GOTO 2000 

1990 DISPLAY AT (23, 1 ) : "all i can say is 
practice, practice, practice!!!" 
2000 GOSUB 2830 
2010 ACCEPT AT(1,21):Q$ 
2020 STOP 
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2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 



FOR Rl=-1 TO 1 

FOR Cl=-1 TO 1 

IF A(R+R1,C+C1)=T2 THEN 2120 

NEXT CI 

NEXT Rl 

REM NO T2 FOUND, FAILURE 

F1=0 

RETURN 

REM SUCCESS 

Fl = l 



RETURN 

REM 

S1=0 

FOR K=l TO 8 

R5=R4 (K) 

C5=C4 (K) 

R6=R+R5 

C6=C+C5 

S3=0 

IF A(R6,C6)<>T2 THEN 2400 

REM LOOP THROUGH RUN 

S3=S3+1 

R6=R6+R5 

C6=C6+C5 

IF A(R6,C6)=T1 THEN 2300 

IF A(R6,C6)=0 THEN 2400 

GOTO 2240 

S1=S1+S3 

IF U<>1 THEN 2400 

REM UPDATE BOARD 

R6=R 

C6=C 

FOR K1=0 TO S3 

A(R6,C6)=T1 

R6=R6+R5 

C6=C6+C5 

NEXT Kl 

NEXT K 

RETURN 

REM SUB PRINT BOARD 

CALL CHAR(92, "007F7F7F7F7F7F7F00FEF 
EFEFEFEFEFE7F7F7F7F7F7F7F00FEFEFEFEFEFEF 
E00") 

2440 CALL CHAR ( 136, "007F7F7F7F7F7F7F00FE 
FEFEFEFEFEFE7F7F7F7F7F7F7F00FEFEFEFEFEFE 
FE00") 

2450 FOR 1=2 TO 16 STEP 2 
2460 FOR J=2 TO 16 STEP 2 

2470 IF D$ (A(I/2, J/2)+l)="X" THEN Al=92 
2480 IF D$ (A(I/2, J/2)+l)=". " THEN 2540 
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2490 IF D$ (A(I/2, J/2)+l)="0" THEN Al=136 

2500 CALL HCHAR(I, 3+J,Al) 

2510 CALL HCHAR(I, 4+J,Al+l) 

2520 CALL HCHAR ( 1+1, 3+J, Al+2 ) 

2530 CALL HCHAR ( 1+1, 4+J, Al+3) 

254 10 NEXT J 

25514 NEXT I 

25 60 RETURN 

2570 REM DELETE SUB 

2580 DISPLAY AT (21,1):"":"":"" 

25 90 RETURN 

2 60 REM SET UP NEW GAME 

2610 FOR R=0 TO 9 

2620 FOR C=0 TO 9 

2630 A(R,C)=0 

2640 NEXT C : : NEXT R 

2 65 RETURN 

2660 REM INITIAL BOARD 

2670 CALL CHAR ( 91, "FFFFFFFFFFFFFFFF" ) 

2680 CALL CHAR ( 133, "0101010101010101 " ) 

2690 CALL CHAR ( 134, "00000000000000FF" ) 

2700 CALL CHAR(135, "01010101010101FF") 

2710 DISPLAY AT ( 1, 3) : " A B C D E F G H" 

2720 FOR ROW=2 TO 17 STEP 2 

2730 DISPLAY AT (ROW+1 , 1 ): ROW/2 

2740 FOR L=l TO 15 STEP 2 

2750 CALL HCHAR (ROW, 4+L, 132 , 1 ) 

2760 CALL HCHAR (ROW, 5+L, 133, 1 ) 

2770 CALL HCHAR (ROW+1, 4+L, 134 , 1 ) 

2780 CALL HCHAR (ROW+1, 5+L, 135, 1 ) 

2790 NEXT L 

2800 NEXT ROW 

2810 RETURN 

2 82 REM TUNE 

2830 CALL SOUND ( 170 , 330 , 1 ) 

2 84 CALL SOUND ( 17 0, 415, 1 ) 

2850 CALL SOUND ( 170 , 4 94 , 1 ) 

2860 CALL SOUND ( 170, 659, 1 ) 

2870 CALL SOUND ( 80 , 110, 30 ) 

2880 CALL SOUND ( 170 , 494, 1 ) 

2890 CALL SOUND (400 , 659, 1 ) 

2 90 RETURN 
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Seek and Find Generator (printer optional) 

by Brian Prothro 

Puzzles have occupied our minds for centuries. Like 
many other popular gamestoday we also find ourselves 
pitting our wits against computer created puzzles. 

Here is a Seek and Find puzzle generator that lets you 
customize your puzzles by allowing you to enter your 
own words (up to 35). You can send messages, quotes, 
birthday greetings or enter vocabulary to study. The 
possibilities are endless. You are limited only by your 
imagination. 

Once entered, the generator embeds the word list 
within the puzzlewhilecriss-crossing and overlapping some of the words with common letters. You can 
play the puzzleon thescreen, or print copies with a printer. Beforewarned, the words appear within the 
puzzle written forward, backward, up, down and diagonally. Tough ! 

The list allows up to 35 words with a maximum of 10 letters each. Invalid words (including numbers or 
words that are too long) are not accepted and may be reentered or changed. Entering the number nine 
terminates the word entry mode and starts the puzzler working. Once having entered the word list the 
program then asks if you want to watch wherethe words will appear as they are written into the puzzle. 
You should watch this a few times, it is fascinating to see how the puzzles are constructed. 

When creati ng a word list be careful not to enter too many lengthy words at the end of a long list. The 
computer randomly tries to fit the words into the remaining spaces in the puzzle and toward the end it 
can be a tight fit. In this case the computer uses one hundred random tries in which to fit the word. Then 
it asks whether to delete the word or continue attempting insertion. You may continue the attempt as 
many ti mes as desi red. After the puzzl e i s generated you havetheopti on of pi ayi ng thescreen or pr i nti ng 
copies to the printer. Line 1380 of the program contains the OP EN statement for the printer. You may 
need to modify this code to fit your printers parameters. 

Playing the screen 

Keys one through four move the cursor around thescreen. After the cursor is located over a word, press 
ENTER to check your guess. Theprogram keepstrack of each correctly guessed word. When you press the 
S key to scroll the word list you will noticethe message "USE DWORD" in placeof each correctly guessed 
word. Once guessed, the words cannot be guessed again, and will give a "wrong guess" message. 
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Code description 

After the word list isloaded into the array, oneat a time the words are tested and placed into the puzzle 
array. Lines 350-370 randomly select a starting point and direction for the placement of a word. Where 
the variable RD is a random direction, and R and C area random starting row and column. 

Lines 390-580 check to see if the length of the word will exceed the puzzle boundaries in the given 
direction. If the word fits then lines 590-650 check each letter position for the word in the puzzle array 
toseeifthepositionisoccupied (Coincidental letters of equal valueareacceptable,creatingthepossibility 
of overlapped words). I fthespaceisnot occupied (P$(R,C)=0) then lines 1090-1180 continueto increment 
in thedirection chosen for the word until the placement checkout is complete. 

Assuming the puzzle positions for the word are all clear or acceptable, lines 680-800 then will save the 
letters of the word i nto the puzzles array (PL) Z$(R,Q). At this poi nt if the option to watch the puzzle be 
constructed was chosen by the user (SE E = 1) then each letter wi 1 1 also appear on thescreen as it i s pi aced 
in the puzzle array. 

When all the words arepl aced within thepuzzle, lines 1310- 1360 fill theremainingemptypositionsofthe 
puzzle array with random letters. Due to the time consumed in generating a random character in line 
1330, the puzzlefill time for this routine can take up to one minute. Although not included, thiswould 
be a good I i neto re-codeusi ng a CAL L P E E K to gai n access to a random number. T hespeed gai ned would 
be worthwhile. 

100 REM SEEK/FIND GENERATOR 

110 REM CRACKING THE 99/4A 

12 CALL CLEAR 

130 DIM CHAR$ (26) ,W$ (35) ,PUZ$ (20,20) ,P$ ( 

20,20),Z$(35),RR(35),CC(35) 



140 


GOSUB 87 










150 


PRINT :,:,:,: 


, "PLEASE WAIT. . 


II 




160 


GOSUB 960 










170 


CALL CLEAR 










180 


DISPLAY AT (10 


,4) 


: "ENTER YOUR 


WORD 


LI 


ST" 


: " ENTER 9 


to : 


FINISH" 






190 


FOR 1=1 TO 35 










200 


PRINT I 










210 


ACCEPT AT (23, 


5) SIZE (lO)BEEP:' 


W$(I) 




220 


IF W$ (I)="9" 


THEN 250 






230 


GOSUB 1020 










240 


NEXT I 










250 


W$(I)="" :: TW, T 


= 1-1 






260 


CALL CLEAR 










270 


GOSUB 1530 










280 


DISPLAY AT (23 


,4) 


:W$ (LOOP) 






290 


DISPLAY AT (23 


,D 


:"SEE WORD LOCATIONS 


(Y/N) " 










300 


ACCEPT AT (23, 


27) VALIDATE ("YN 


") SIZE(1 
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BEEP:Q$ 



310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 



DISPLAY AT (23, 1) : " 
IF Q$="Y" THEN SEE= 
LOOP=LOOP+l 
RANDOMIZE 
RD=INT (RND*8) +1 
R=INT (RND*20) +1 
C=INT (RND*20) +1 
ROW=R : : COL=C 



PLEASE WAIT. 
ELSE SEE=0 



REM CHOOSE DIRECTION 

LN=LEN(W$ (LOOP) ) 

TRIES=TRIES+1 

IF TRIESM00 THEN GOSUB 1200 

ON RD GOTO 440,460,480,500,520,540,5 
60,580 
440 IF C+LN>20 THEN 340 ELSE GOSUB 600 

GOTO 600 

IF C-LN<0 THEN 340 ELSE GOSUB 600 

GOTO 60 

THEN 340 



450 

460 
470 
480 
490 
500 
510 
520 
SUB 
530 
540 



ELSE GOSUB 600 



IF R+LN>20 

GOTO 60 

IF R-LN< THEN 340 ELSE GOSUB 600 

GOTO 60 

IF C-LN<1 OR R-LN<1 THEN 340 ELSE GO 

600 

GOTO 60 

IF C+LN>20 OR R+LN>20 THEN 340 ELSE 
GOSUB 600 
550 GOTO 600 

560 IF C-LN<1 OR R+LN>20 THEN 340 ELSE G 
OSUB 600 
570 GOTO 600 

580 IF C+LN>20 OR R-LN<1 THEN 340 ELSE G 
OSUB 600 



590 

600 

610 

40 

620 

630 

640 

640 

650 

660 

670 

680 

690 

40 

700 

710 



REM LOCATION FREE? 

FOR M=l TO LEN(W$ (LOOP) ) 

IF R<1 OR R>20 OR C<1 OR C>20 THEN 3 



0" THEN 64 
=SEG$ (W$ (LOOP) 



IF P$ (R,C)= 

IF PUZ$ (R,C 

ELSE 340 

GOSUB 1090 

NEXT M 

R=ROW : : C=COL 

REM PRINT WORD TO MEM 

RR(LOOP)=R :: CC(LOOP 

IF R<1 OR R>20 OR C<1 



,M, 1) THEN 



=C 

OR 



C>20 THEN 3 



FOR L=l TO LEN(W$ (LOOP) ) 
PUZ$ (R,C)=SEG$ (W$ (LOOP) , L, 1) 
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720 P$ (R,C)="1" 

730 IF SEE=1 THEN 740 ELSE 760 

740 D=ASC(PUZ$ (R,C) ) 

750 CALL HCHAR(R+1,C+5,D) 

760 GOSUB 1090 

770 NEXT L 

780 IF LOOP=I THEN 800 

790 GOTO 330 

800 DISPLAY AT (23,1):" THE WORDS ARE IN 

PLACE.": "I'M NOW FILLING THE SPACES." 
810 GOSUB 1310 

820 DISPLAY AT (23, 1 ): "PRINT TO PRINTER? 
(Y/ N) ":"" 

830 ACCEPT AT (23,26) SIZE (1)BEEP:Q$ 
840 IF Q$="Y" THEN 850 ELSE 1630 
850 GOSUB 1380 
860 GOTO 820 
870 FOR 1=1 TO 226 

880 DISPLAY AT ( 1/2 + 1, 7 ): "SEEK AND FIND": 
CUSTOMIZED":" PUZZLE GENERAT 
OR" 

8 90 READ CHARS (I) 

900 DISPLAY AT (1/2 + 1, 1) :"":"": "" 
910 NEXT I 

920 DATA A,B,C,D,E,F,G,H, I, J 
930 DATA K,L,M,N,0,P,Q,R,S,T 
940 DATA U,V,W,X, Y, Z 
95 RETURN 
960 FOR R=l TO 20 
970 FOR C=l TO 20 
980 P$ (R,C)="0" 
990 NEXT C : : NEXT R 
1000 RETURN 

1010 REM VALIDATE WORD ENTRY 
1020 FOR J=l TO LEN(W$(I)) 

1030 IF SEGS (W$ (I) , J, 1) >"Z" OR SEG$(W$(I 
),J,1)<"A" THEN 1040 ELSE 1060 



1040 DISPLAY 


AT (23,1):" invalid wor 


1050 1=1-1 : : GOTO 1070 


1060 NEXT J 


107 RETURN 


1080 REM DIRECTION 


1090 ON RD GOTO 1100,1110,1120,1130,1140 


, 1150, 1160, 1170 


1100 C=C+1 : 


: GOTO 1180 


1110 C=C-1 : 


: GOTO 1180 


1120 R=R+1 : 


: GOTO 1180 


1130 R=R-1 : 


: GOTO 1180 


1140 R=R-1 : 


: C=C-1 : : GOTO 1180 
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GOTO 
GOTO 



1150 R=R+1 : : C=C+1 

1160 R=R+1 : : C=C-1 

11761 R=R-1 : : C=C+1 

1180 RETURN 

1190 REM TROUBLE FITTING WORD 

1200 TRIES=0 

1210 DISPLAY AT (23, 1 

W$ (LOOP) : "DELETE IT? 

1220 ACCEPT AT (24,25 

1230 DISPLAY AT (23, 1 

1240 DISPLAY AT (23, 1 



1180 
1180 



: "STUCK ON WORD: 

(Y/N) " 

SIZE (1)BEEP:Q$ 

. II II . II II 

: " PLEASE WAIT. . 



DISPLAY AT (23, 1) 



THEN PUZ$ (R,C)=CHAR 



1250 IF Q$="Y" THEN 1260 ELSE 1290 

1260 TRIES=0 

1270 W$ (LOOP)="" 

RRENT WORD DELETED": 

12 8 TW=TW-1 

12 90 RETURN 

130 REM FILL BLANKS 

1310 FOR R=l TO 20 

1320 FOR C=l TO 20 

1330 IF PUZ$ (R,C)="" 

$ (INT (RND*26) +1) 

1340 CALL HCHAR(R+1,C+5,ASC (PUZ$ (R,C 

NEXT C : : NEXT R 

RETURN 

REM PRINT TO PRINTER 

OPEN #1:"RS232/1.BA=1200" 

FOR R=l TO 20 

FOR C=l TO 20 

LINES=LINES&PUZ$ (R,C) &" " 

NEXT C 

:LINE$ 



'CU 



1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 



PRINT #1: 

LINES="" 

NEXT R 

PRINT #1 

FOR R=l TO I STEP 2 

PRINT #1 :W$ (R) ,W$ (R+l) 

NEXT R 

CLOSE #1 

RETURN 

REM DRAW BOX 

CALL CHAR (95, "FFFFFFFFFFFFFFFF" ) 

CALL CHAR(124, "FFFFFFFFFFFFFFFF") 

CALL HCHAR(1, 5, 95,22) 

CALL HCHAR(22, 5, 95,22) 

FOR J=l TO 22 

CALL VCHAR(J, 5, 124) 

CALL VCHAR(J,26, 124) 

NEXT J 
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1610 RETURN 

162 REM PLAY SCREEN 

1630 DISPLAY AT (23, 1 ) : "P=PLAY SCREEN N=N 

AT 11 . 11 II 

1640 ACCEPT AT (2 3, 28 ) VALIDATE ("PN")BEEP: 

Q$ 

1650 FOR TM=1 TO 151 :: NEXT TM 

1660 IF Q$="P" THEN 1620 

1670 IF Q$="N" THEN 820 ELSE 1630 

1680 DISPLAY AT (23, 1 ): "PRESS (ENTER) TO 

GUESS A WORD, S' TO SCROLL LIST." 

1690 U,R,C=1 

17 CALL KEY(0,K, S) 

1710 IF K=83 THEN GOSUB 2030 

1720 CALL HCHAR(R+l,C+5, 124) 

1730 CALL HCHAR(R+1,C+5,ASC (PUZ$ (R,C) ) ) 

1740 IF K=13 THEN GOSUB 1830 

1750 IF K<49 OR K>52 THEN 1700 

1760 RD=K-48 :: GOSUB 1090 

1770 IF R<1 THEN R=l 

1780 IF C<1 THEN C=l 

1790 IF R>20 THEN R=19 

1800 IF O210 THEN C=20 

1810 GOTO 1700 

182 REM ACCEPT WORD 

1830 DISPLAY AT (23, 1 ) : "HOW LONG IS YOUR 

WORD GUESS?":"" 

1840 ACCEPT AT (24, 3) VALIDATE (NUMERIC) BEE 

P:LENG 

1850 IF LENG<1 OR LENG>10 THEN 1840 

1860 FOR D=l TO I 

1870 IF R=RR(D)AND C=CC(D)AND LENG=LEN (W 

$(D))THEN GUESS=1 ELSE 1890 

1880 SS=D 

1890 NEXT D 

1900 IF GUESS=1 THEN 1920 ELSE 1990 

1910 RETURN 

1920 DISPLAY AT (23, 1 ): "CORRECT GUESS" 

1930 CALL SOUND (200,400,1,501,1):: CALL 

SOUND (300, 600, 1, 800, 1) 

1940 W$(SS)="used word!!" 

195 AL=AL+1 

1960 IF AL=TW THEN DISPLAY AT (23, 1 ) : "YOU 

GOT THEM ALL !!!!!!!!" ELSE 1980 
1970 GOTO 2070 
1980 GUESS=0 :: RETURN 

1990 DISPLAY AT (23, 1 ): "WRONG, GUESS AGAI 
N! ! " 

2000 CALL SOUND (100, 137, 1) : : CALL SOUND ( 
420, 127, 1) 
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2010 RETURN 

2 02 REM SCROLL WORDS 

2030 DISPLAY AT (23, 1) :W$ (U) 

+ 1) :W$ (U+2) ; TAB (13) ; W$ (U+3) 

2040 U=U+2 

2050 IF U>I-2 THEN U=l 

2 60 RETURN 

2 07 CALL SOUND (200,247, 1) : 

200,330,1):: CALL SOUND (200, 415, 1 

L SOUND(200,494, 1) 

2080 CALL SOUND (40, 300, 30) : : CALL SOUND ( 

200,414,1):: CALL SOUND (350, 4 94 , 1 ) 

2090 INPUT "HIT ENTER TO QUIT.":Q$ 



TAB (13) ;W$ (U 



CALL SOUND ( 
CAL 
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Home 
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Extended Basic 
Check Management 

Checkbook M anagement/Analysis is a set of two programs that allow the user to: 

1. Balance his checkbook. 

2. Save check information on a monthly basis (or on any interval desired). 

3. Analyze each month's checksto determine: (1) thegrand total of money spent using checks; (2) 
the number of checks and total spent i n each of 20 categories (14 pre-defi ned and 6 user-defi ned); 
and (3) the percentage each category's total is of the grand total . 

4. M ai ntai n a cumulative record (i n al I categories as kept monthly), of wheremoney has been spent, 
and analyze this cumulative record at anytime. In effect, this shows the average spent in each 
category based on the number of months the cumulative file has been updated. 

As stated, this is a set of two programs; they are called Balance and Analyze. Balance is run first and, if 
the user so chooses, Bal ance runs Analyze (usi ng the E xt ended Basic capabi I ity of one program running 
another), so that they appear to the user as one program. H owever, it is possi bleto run Analyze by itself, 
but only after Balance has been run. You get exactly the same results. 

Instructions 

The Balance program begins by asking you to enter, in theformmmyy, the month and year of the bank 
statement to be balanced. This creates thefileCH ECKSmmyy. I f 9999 is entered for mmyy, BALANCE 
will createa data set called CHECKSTEMP when it is asked to save check information for analysis, 
regardless of whether a data set by this name already exists. The purpose of this feature is to analyze 
checks at any point during a pay period. 

I f you respond to mmyy with a dateother than 9999, Bal anceexami nes thedi rectory of thedisk to ensure 
that a file for the month and year specified does not currently exist. Check information for a month is 
saved for Analyzein files with the general name format of CHECKSmmyy. These monthly files can be 
kept as long as needed, and analyzed at any time with Analyze. 

After validating your entry, the balancing of the checkbook begins. The user enters information about 
(1) checks, (2) deposits, and (3) withdrawals (other than checks). For each of thesethree categories you 
can add, delete, and list entries. No matter what order the checks are entered, they are always listed in 
ascending numerical order. When finished entering all checkbook entries, thebalancecan bedetermined. 
At any time prior to terminating the program or invoking Analyze, you can make any corrections or 
changes required and re-calculate the balance. 



83 



TEXAS INSTRUMENTS 
HOME COMPUTER 



You have the option to save the information and return later to complete the balancing activity. In this 
case, all input information, including deposits and withdrawals, aresavedin afilewiththegeneral name 
SAVEmmyy. SAVEmmyy is deleted when Balance is terminated if the last save/fetch activity for 
SAVE mmyy was fetch. 

When terminating Balance, the user is given three options: (1) saving check information on afilefor 
analysis (CHECKSmmyy or CHECKSTEMP), (2) terminating the program, or (3) returning to the 
primary menu. 

When (1) is selected the check fileCHECKSmmyy is created if any month and year other than 9999 is 
specified; if 9999 was specified, thefilecreated is named CHECKSTEMP In addition, if a month and year 
other than 9999 is specified, another file, CM ON, is created or updated, depending on whether or not it 
currently exists (Balancedetermines this by examining the disk directory). The CM ON filecontainsone 
record: the mmyy as a string variable of the check file just created. This is to record the current month, 
or the most recent month balanced. This file is used by Analyze to determine the name of the data set to 
analyze when it is invoked by Balance or run independently. 

If (1) ischosen, a menu appears giving the opportunity to terminate Balance with or without invoking 
Analyze. 

If (2) ischosen, it means the user does not want the month analyzed and is using the system only for 
balancing purposes. 

The analyze program can be run by selecting the "SAVE CHECKSTO FILE"option when terminating 
Balance or by running it independently sometime after Balance. I n either case, Analyze immediately 
accesses theCM ON fi le and attempts to read thedata set CHECKSmmyy, wherethe mmyy was obtained 
fromtheCMON file. The program will crash iftheCMON filedoes not exist. In other words, Analyze will 
attempt to analyzethe most recent month balanced when it is run without any menu appearing. 

Thereport produced by Analyzeconsistsofdisplayingonthescreen all category names, thetotal number 
of checks written i n each category, thetotal amount of money spent i n each category, and the percentage 
of the month's total each category's total represents. I n addition, displayed in the lower left-hand corner, 
there is the mmyy of the month bei ng analyzed: "CU M " if you analyzetheCU M U LATI VE fi le, or TE M P 
if you are analyzing CH ECKSTE M P 

If it is the first execution of Analyze, Analyze will create the CUMULATIVE file. After analyzing the 
current month, Analyze will attempt to integratethecurrent month's data into theCUMU LATI VE file. 
If Analyze is run some other time after the current month is integrated, integration will be bypassed 
because AnalyzecheckstheCI NT file, which is updated by Analyze after an integration and tells the last 
month integrated. 

After integration has occurred or been bypassed, as thecase may be, a menu appears, giving you a choice 
between: 
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1. Analyzing the current (most recently balanced) month again. 

2. AnalyzingtheCUMULATIVEfile 

3. Analyzi ng any month the user chooses. 

4. AnalyzingtheCHECKSTEMPfile. 

5. Terminating the program. If the month selected is not on the disk, an error message indicating 
this is displayed. 

It would be best to put this program on a separate disk in order to have room for your data files. 

The foil owing describes the files used in this program. 

CM ON iscreated and updated by Balance, and interrogated by Analyze. Thisfileholdsonestring variable 
indicating the last month and year balanced.The purpose of thisfileistodeterminethe proper month 
to analyze and to prevent Analyze from integrating into theCUMULATIVE file the check data from the 
last month balanced. 

CHECKSTEMP iscreated by Balance. If you enter 9999 asthe month and year being balanced/analyzed, 
this indicates that you areentering only a portion of a months checks. This filecan be analyzed from the 
menu and allows you to analyze the checkbook at anytime during the month. 

CH ECKSmmyy iscreated by Balance. If you specify any dateother than 9999 asthemonth and year being 
balanced/analyzed. Themmyy of this data set is placed as a string variable into theCMON file, CMON 
is interrogated by Analyze when it is run in order to determine which month to analyze. 

SAVE mmyy iscreated and retrieved by Balance when requested via menu. Thisfilesaves all information 
already input, including deposits and withdrawals. This is to be used if you are interrupted while 
balancing the checkbook and saves temporarily what you've done so that you can finish later. 

CI NT iscreated, interrogated, and updated byAnalyzeThisfiletellsAnalyzethemmyy of thelast month 
integrated into theCUMULATIVE file, which prevents integrating a month twice. 

TheBalanceprogram is I argeand consequently, it will saveto disk under thefileattributes I NTA/AR 254. 
This is peculiar to Extended Basic and creates no problems. The program can be loaded from disk with 
the usual OLD and RUN commands. 

Balance listing 

100 REM CHECKBOOK/MANAGEMENT 
110 REM C 1983 BY JOHN COPE 
12 REM CRACKING THE 9 9/4A 
130 OPTION BASE 1 
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140 CALL CLEAR :: CALL SCREEN(4):: BC=33 
:: RP=21 :: CALL CHAR (BC, "FFFFFFFFFFFFF 

FFF"):: CALL COLOR ( 1 , 13, 1 ) 

150 DIM CKNO(lOl) , CKAMT (101) , CKCAT (101) , 

CKOUT(lOl) , WITH (31) , DEP (31) ,L$ (18) ,MON$ ( 

127):: MAXDEP, MAXWITH=30 :: MAXCK=101 

160 CK=1 : : DP=1 : : WI=1 

170 DISPLAY AT (4,1) ERASE ALL:" WARNING 

: DO NOT USE": :" COMMAS WHEN ENTERING 

": :" AMOUNTS OF MONEY." 

180 DISPLAY AT (15,1):" SUCH ENTRIES WI 

LL BE": :" FOUND TO HAVE AN": :" INV 

ALID FORMAT." :: GOSUB 3110 :: GOSUB 347 



190 DISPLAY AT (4,1) ERASE ALL:" ENTER THE 
MONTH AND YEAR" : " OF THE STATEMENT 

TO BE":" BE BALANCED, IN THE":" FOLLOWI 

NG FORMAT: MMYY" 

200 DISPLAY AT (15,1):" OR ENTER 9999 FOR 

TEMPORARY" : " CHECK ANALYSIS . " 

210 DISPLAY AT (9,1):" WHERE 'MM' = 01 FO 

R JAN,": :" 11 = NOV, ETC, AND YY=YEAR." 
: : GOSUB 3110 

220 ACCEPT AT (20, 4) VALIDATE (DIGIT) SIZE (4 

) :MMYY 

230 MY$=STR$ (MMYY) : : IF LEN(MY$)<3 THEN 

220 :: IF LEN(MY$)=3 THEN MY$="0"&MY$ 

240 IF MMYY=9999 THEN MY$="TEMP" : : GOTO 
370 

250 OPEN #33: "DSK1. ", INPUT , RELATIVE, INT 

ERNAL 

260 C=l :: FOR 1=1 TO 127 :: INPUT #33:A 

$,A, J,K 

270 IF LEN(A$)=0 THEN 300 

280 MON$(C)=A$ :: C=C+1 290 NEXT I 

300 CLOSE #33 

310 DSN$="CHECKS"&MY$ 

320 FOR 1=1 TO C :: IF DSN$=MON$ ( I ) THEN 350 

330 NEXT I 

340 GOTO 370 

350 DISPLAY AT (4,1) ERASE ALL:">> ERROR. 

ISK ALREADY HAS": :" CHECKS FOR THE 

MONTH": :" AND YEAR ENTERED (";MY$;"). 

II 

360 GOSUB 3110 : : GOSUB 3470 : : GOTO 190 
37 REM CHECKBOOK BALANCING 
380 DISPLAY AT (8, 6) ERASE ALL: "BALANCE CH 
ECKBOOK." :: GOSUB 3110 :: GOSUB 3470 
390 DISPLAY AT (4,1) ERASE ALL:" *** BALAN 
CE CHECKBOOK ***" 
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400 DISPLAY AT (6, 1) 

■k -k -k " 



PRIMARY MENU 



1 - PROCESS A CHEC 

2 - PROCESS A DEP 

3 - PROCESS A WIT 

4 - CALCULATE BAL 

5 - TERMINATE BAL 



6 - SAVE CHECKBOO 
: " 7 - FETCH CHECK 



410 DISPLAY AT (8, 1) 

K" 

420 DISPLAY AT (10, 1 

OSIT" 

430 DISPLAY AT (12, 1 

HDRAWAL" 

440 DISPLAY AT (14, 1 

ANCE" 

450 DISPLAY AT (16, 1 

ANCING" 

460 DISPLAY AT (18, 1 

K" : : DISPLAY AT (20, 1 

BOOK" 

470 GOSUB 3500 : : GOSUB 3110 

80 

480 RV=RV-48 : : IF RV<1 THEN 470 : : IF R 

V>7 THEN 470 :: ON RV GOSUB 500,1590,213 

0,2630,2910,3140,3240 

4 90 GOTO 3 90 

500 REM PROCESS A CHECK 

510 DISPLAY AT (4,1) ERASE ALL:" ** PROCES 

5 A CHECK **" 

520 DISPLAY AT (7,1):" 1 - ADD A CHECK" 
530 DISPLAY AT (9,1):" 2 - DELETE A CHECK 



GOSUB 34 



LIST THE CHEC 
RETURN TO PRI 
GOSUB 34 



540 DISPLAY AT (11,1):" 3 

KS" 

550 DISPLAY AT (13,1):" 4 

MARY MENU" 

560 GOSUB 3500 : : GOSUB 3110 

80 

57 RV=RV-4 8 : : IF RV<1 THEN 5 60 : : IF R 
V>4 THEN 560 :: ON RV GOSUB 590,1340,147 
0,580 

58 RETURN 

5 90 REM ADD A CHECK 

600 DISPLAY AT (3,1) ERASE ALL:" ENTER A C 

HECK THIS WAY: " 

610 DISPLAY AT(5,1):" CKNO, AMOUNT, CATE 

GORY [ , 1 ] " 

620 DISPLAY AT (7, 1) : 

ONLY WHEN THE CHECK 

630 DISPLAY AT (9,1) : 

ES:" 

640 DISPLAY AT ( 11 , 1 ) : " 1=CASH 2=HOUSE 

3=CLOTHES" : "4=MEDICAL 5=AUTO 6=CHARGE 
":"7=FOOD 8=MISC 9=INSUR" : " 10=DONAT 



" WHERE ,1 IS CODED 

IS OUTSTANDING. " 

" VALID CATEGORY COD 
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E 11=UTILI 12=PHONE" 

650 DISPLAY AT ( 15, 1 ) : " 13=FUN 14-20 YO 

U DEFINE" : 

660 DISPLAY AT (17,1):" PRESS <ENTER> TO 

RETURN TO THE PRIMARY MENU." :: GOSUB 3 

110 

670 IF CK=1 THEN 720 : : IF CK>MAXCK-1 TH 

EN 3050 

680 IF CKOUT (CK-1)=0 THEN 710 

690 DISPLAY AT (20, 1 ) : "LAST : " ; LCKNO :: D 

ISPLAY AT (20, 13) :USING 3530:LCKAMT :: DI 

SPLAY AT (20, 23) : LCKCAT; LCKOUT 

700 GOTO 72 

710 DISPLAY AT (20, 1) : "LAST: "; LCKNO :: D 

ISPLAY AT (20, 13) :USING 3530:LCKAMT :: DI 

SPLAY AT (20, 23) : LCKCAT 

720 ACCEPT AT(23,5):CK$ 

730 IF CK$<>"" THEN 740 :: RETURN 

740 GOSUB 980 

750 IF VALRCO0 THEN 590 

7 60 REM CK FOR DUPLICATE 

770 FOR 1=1 TO CK-1 

780 IF CKNO(I)=CKNO(CK) THEN 810 

790 NEXT I 

800 GOTO 87 

810 DISPLAY AT (4,1) ERASE ALL:" >> ERROR. 

DUPLICATE CHECK NUMBER." 
820 DISPLAY AT (7,1):" THE FOLLOWING C 
HECK HAS ALREADY BEEN ENTERED:" 
830 DISPLAY AT ( 10 , 5) : USING 3520 : CKN0 ( I ) , 
CKAMT ( I ) , CKCAT ( I ) 

840 DISPLAY AT (12,1):" YOU ENTERED:" 
850 DISPLAY AT ( 14, 5) : USING 3520 : CKN0 (CK) 
, CKAMT (CK) , CKCAT (CK) 

860 GOSUB 3110 :: GOSUB 3470 :: GOTO 590 
87 REM VALIDATE CAT CODE 

880 IF CKCAT (CK)>20 THEN 960 ELSE CK=CK+ 
1 :: GOSUB 1330 :: IF CKNO (CK-1 ) >LGC THE 
N LGC=CKNO(CK-l) : : GOTO 670 
890 FOR 1=1 TO CK-2 
900 IF CKNO (CK-1) <CKNO (I) THEN 930 
910 NEXT I 
920 DISPLAY AT (4,1) ERASE ALL:" >> ERROR. 

CANNOT PLACE": :" CHECK NUMBER IN": 
:" SEQUENCE." :: GOSUB 3470 :: GOTO 30 
90 

930 SCK=CK :: FOR J=l TO CK-I :: CKNO(CK 
)=CKNO(CK-l) : : CKAMT (CK) =CKAMT (CK-1 ): : C 
KCAT (CK)=CKCAT (CK-1) :: CKOUT (CK) =CKOUT© 
K-l):: CK=CK-1 :: NEXT J 
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CKNO ( I ) = 
CKCAT ( I ; 



^CKNO(CK) : : 
=CKCAT (CK) 



CKAMT ( I 
: CKOUT 



=CKCAT (CK) =CKOUT© 



940 CK=SCK 

)=CKAMT (CK) 

(I)=CKOUT(CK) 

950 CKNO(CK)=CKAMT (CK 

K)=0 : : GOTO 670 

960 DISPLAY AT (4,1) ERASE ALL:" >> ERROR 

INVALID CATEGORY CODE" ; CKCAT (CK) 
970 GOTO 860 
98 REM VALIDATE FORMAT 



990 IF : 


LEN(CK$) >18 


THEN 


1290 










1000 
90 

1010 


Cl= 


=POS (CK$, ", 


" , 1 ) : 


: IF 


Cl= 


=0 ' 


rHEN 


12 


IF 


Cl>5 THEN 


1290 












1020 


PP= 


=POS (CK$, ". 


M) 












1030 


C2 = 


=POS (CK$, ", 


",C1+1) : : 


IF 


C2 = 


=0 THEN 


1290 : 


: IF LEN(CK$)=C2 


THEK 


' 1290 






1040 


IF 


PP=0 THEN 


1050 I 


3LSE 


IF 


C2- 


-PP>3 


T 



HEN 12 90 

1050 C3=POS (CK$, ", ",C2+1) 

1060 IF C3=0 THEN CKOUT (CK)=0 ELSE CKOUT 

(CK)=1 

1070 IF C3=0 THEN 1090 

1080 IF LEN(CK$) -C3<>1 THEN 1290 : : IF S 

EG$ (CK$,LEN(CK$) , 1) <>"1" THEN 1290 



IF 
IF 
IF 
IF 
IF 
PP2 



1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

C(L$(I)) 

1210 

1220 

1230 

1-D 

1240 



C2=0 THEN 1290 
C2-C1<=1 THEN 1290 
PP=0 THEN 1160 
PP<C1 THEN 1290 
PP>C2 THEN 1290 
=POS (CK$, " . ",PP+1) 



IF PP2<>0 THEN 1290 
FOR 1=1 TO LEN(CK$) 
L$ (I)=SEG$ (CK$, I, 1) 
NEXT I 

FOR 1=1 TO LEN(CK$) 
IF ASC (L$ (I) )=44 THEN 

=46 THEN 1230 
IF ASC (L$ (I) ) <48 THEN 
IF ASC (L$ (I) ) >57 THEN 
NEXT I 



1230 

1290 
1290 



IF AS 



CKNO(CK)=VAL(SEG$ (CK$, 1,C 
CKAMT (CK)=VAL(SEG$ (CK$, Cl + 1, C2-C1-1 



1250 IF C3=0 THEN CKCAT (CK) 

,C2+1,LEN(CK$)-C2) ) 

1260 IF C3<>0 THEN CKCAT (CK 

$,C2+1,C3-C2-1) ) 

127 VALRC=0 

12 8 RETURN 

1290 DISPLAY AT (4,1) ERASE ALL 



VAL(SEG$ (CK$ 
=VAL(SEG$ (CK 

>> ERROR 
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. CHECK INFORMATION NOT ENTERED IN TH 

E CORRECT FORMAT . " 

1300 DISPLAY AT (12,1):" YOU ENTERED": 
: " " ; CK$ 

1310 GOSUB 3110 :: GOSUB 3470 

1320 VALRC=4 : : GOTO 1280 

1330 LCKNO=CKNO(CK-l) : : LCKAMT=CKAMT (CK- 

1) : : LCKCAT=CKCAT (CK-1) : : LCKOUT=CKOUT© 

K-l) : : RETURN 

1340 REM DELETE A CHECK 

1350 DISPLAY AT (4,1) ERASE ALL: "ENTER THE 
NUMBER OF THE": : "CHECK TO BE DELETED." 

1360 GOSUB 3110 :: ACCEPT AT ( 10, 5) VALIDA 

TE (DIGIT) SIZE (4) :A$ :: IF A$="" THEN 370 
ELSE A=VAL(A$) 

1370 FOR 1=1 TO CK-1 

1380 IF A=CKNO(I) THEN 1420 

1390 NEXT I 

1400 DISPLAY AT (4,1) ERASE ALL:" >> ERROR 
. CHECK NUMBER ":" ";A;" NOT 
FOUND . " 

1410 GOSUB 3110 :: GOSUB 3470 :: GOTO 50 



1420 FOR J=I+1 TO CK 

1430 CKNO(J-l)=CKNO(J) : : CKAMT ( J-l ) =CKAM 

T(J):: CKCAT (J-1)=CKCAT (J) 

1440 NEXT J 

1450 CKNO(CK)=0 :: CKAMT (CK)=0 :: CKCAT ( 

CK)=0 :: CK=CK-1 :: IF A=LGC THEN LGC=CK 

NO (CK-1) 

1460 GOTO 500 

1470 REM LIST THE CHECKS 

1480 IF CK=1 THEN CALL CLEAR : : GOTO 158 



1490 1=1 

1500 CALL CLEAR :: FOR J=l TO 15 

1510 IF CKOUT(I)=0 THEN 1540 

1520 DISPLAY AT (J+4, 1 ): USING "####":CKNO 
(I):: DISPLAY AT (J+4, 8 ): USING 3530:CKAMT 
(I):: DISPLAY AT (J+4, 19) : CKCAT (I) : : DISP 

LAY AT (J+4, 24) : CKOUT (I) 

1530 GOTO 1550 

1540 DISPLAY AT (J+4 , 1 ): USING "####":CKNO 
(I):: DISPLAY AT (J+4, 8 ): USING 3530:CKAMT 
(I):: DISPLAY AT (J+4, 19) : CKCAT (I) 

1550 1=1+1 : : IF I=CK THEN 1580 

1560 NEXT J : : PRINT : : GOSUB 3110 : : GO 

SUB 3470 : : GOTO 1500 

157 CALL CLEAR 

1580 GOSUB 3510 :: GOSUB 3110 :: GOSUB 3 
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480 : : GOTO 500 

1590 REM PROCESS A DEPOSIT 

1600 TYPES=" DEPOSIT " 

1610 DISPLAY AT (4,1) ERASE ALL:" * * PR 

OCESS A DEPOSIT * *" 

1620 DISPLAY AT (7,1):" 1 - ADD IN A DEPO 

SIT" 

1630 DISPLAY AT(9,1):" 2 - DELETE A DEPO 

SIT" 

1640 DISPLAY AT (11,1):" 3 - LIST DEPOSIT 

S ENTERED" 

1650 DISPLAY AT (13,1):" 4 - RETURN TO PR 

IMARY MENU" 

1660 GOSUB 3500 :: GOSUB 3110 :: GOSUB 3 

480 

1670 RV=RV-48 :: IF RV<=0 THEN 1660 :: I 

F RV>4 THEN 1660 :: ON RV GOSUB 1690,186 

0,2060,1680 

168 RETURN 

1690 REM ADD A DEPOSIT 

1700 GOSUB 3430 

1710 IF DP=1 THEN 1730 : : IF DP>MAXDEP T 

HEN 307 

1720 DISPLAY AT ( 10 , 1 ) : "LAST ENTERED:" :: 

DISPLAY AT (10, 16) :USING 3530 : DEP (DP-1 ) 
1730 GOSUB 3440 

1740 IF D$<>"" THEN 1750 :: RETURN 
1750 GOSUB 1760 :: IF RC<>0 THEN 1840 EL 
SE 1820 

1760 P=POS (DS, ", ", 1) : : IF P<>0 THEN 1830 
1770 FOR 1=1 TO LEN(D$) 

1780 IF ASC (SEGS (D$, I, 1) ) <48 THEN 1790 : 
: IF ASC (SEG$ (D$, I, 1) ) >57 THEN 1830 :: G 
OTO 1800 

1790 P=POS (D$, " . ", 1) : : IF P=0 THEN 1830 
:: Pl=POS (D$, " . ",P + 1) : : IF P1<>0 THEN 18 
30 :: IF LEN(D$)-P>2 THEN 1830 
1800 NEXT I : : RC=0 
1810 RETURN 

1820 DEP (DP)=VAL(D$) : : DP=DP+1 :: GOTO 1 
700 

1830 RC=4 : : GOTO 1810 
1840 GOSUB 3400 

1850 GOSUB 3110 :: GOSUB 3470 :: GOTO 16 
90 

1860 REM DELETE DEPOSIT 
1870 GOSUB 3450 
1880 IF D$="" THEN 1910 
1890 GOSUB 1760 
1900 IF RC<>0 THEN 1980 ELSE 1920 
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1910 


RETURN 


1920 


FOR 1=1 TO DP-1 


1930 


IF VAL(D$)=DEP (I) THEN 2010 


1940 


NEXT I 


1950 


GOSUB 3410 


1960 


GOSUB 3110 :: GOSUB 3470 


1970 


RETURN 


1980 


GOSUB 3400 


1990 


GOSUB 3110 :: GOSUB 3470 


2000 


GOTO 1970 


2010 


FOR J=I TO DP-1 


2020 


DEP (J)=DEP (J+l) 


2030 


NEXT J 


2040 


DEP (DP-1) =0 :: DP=DP-1 


2050 


GOTO 1970 


2060 


REM LIST DEPOSITS 


2070 


CALL CLEAR 


2080 


FOR 1=1 TO DP-1 


2090 


IF DEP(I)=0 THEN 32767 


2100 


DISPLAY AT (1+3, 10) :USING 3530:DEP(I 


2110 


NEXT I 


2120 


GOSUB 3510 :: GOSUB 3110 :: GOSUB 3 


480 


: : RETURN 


2130 


REM WITHDRAWALS 


2140 


TYPE$=" WITHDRAWAL " 


2150 


DISPLAY AT (4, 3) ERASE ALL:"** PROCES 


S WITHDRAWALS **" 


2160 

A Ta7 A T ' 


DISPLAY AT(7,2):"1 - ENTER A WITHDR 

I 


2170 


DISPLAY AT(9,2):"2 - DELETE A WITHD 


RAWAL" 


2180 

A T Q " 


DISPLAY AT (11, 2): "3 - LIST WITHDRAW 


2190 


DISPLAY AT(13,2):"4 - RETURN TO PRI 


MARY 


MENU" 


2200 


GOSUB 3500 :: GOSUB 3110 :: GOSUB 3 


480 




2210 


IF RV<49 THEN 2200 


2220 


IF RV>52 THEN 2200 


2230 


RV=RV-48 :: ON RV GOSUB 2250,2460,2 


390,2240 


2240 


RETURN 


2250 


REM ENTER WITHDRAWAL 


2260 


GOSUB 3430 


2270 


IF WI=1 THEN 2290 : : IF WI>MAXWITH 


THEN 


3060 


2280 


DISPLAY AT (10, 1) : "LAST ENTERED:" :: 


DISPLAY AT (10, 15) :USING 3530 : WITH (WI-1 ) 


2290 


GOSUB 3440 
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2300 

2310 

2320 

2330 

2340 

2350 

2360 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

I) 

2440 

2450 

480 : 

2460 

2470 

2480 

2490 

2500 

2510 

2520 

2530 

2540 

2550 

40 

2560 

20 

2570 

2580 

2590 

2600 

2610 

2620 

2630 

2640 

2650 

ANCE 

3110 

) :D$ 

2660 

2670 

2680 

2690 

2700 

2710 

2720 



IF d$="" THEN 2310 ELSE 2320 

RETURN 

GOSUB 1760 

IF RC<>0 THEN 2360 

WITH(WI)=VAL(D$) 

WI=WI+1 : : GOTO 2270 

GOSUB 3400 

GOSUB 3110 :: GOSUB 3470 

GOTO 2130 

REM LIST WITHDRAWALS 

CALL CLEAR 

FOR 1=1 TO WI-1 

IF WITH(I)=0 THEN 32767 

DISPLAY AT (6+1, 10) :USING 3530:WITH( 

NEXT I 

GOSUB 3510 :: GOSUB 3110 :: GOSUB 3 

: RETURN 

REM DELETE A WITH. 

GOSUB 3450 

IF D$<>"" THEN 2490 :: RETURN 

GOSUB 1760 

IF RC<>0 THEN 2560 

FOR 1=1 TO WI-1 

IF WITH(I)=VAL (D$) THEN 2570 

NEXT I 

GOSUB 3410 

GOSUB 3110 :: GOSUB 3470 :: GOTO 22 

GOSUB 3400 :: GOSUB 3470 :: GOTO 26 

FOR J=I TO WI-1 

WITH(J)=WITH(J+1) 

NEXT J 

IF WI=1 THEN 2620 

WITH (WI-1) =0 :: WI=WI-1 

RETURN 

REM FIND BALANCE 

SCK,SDP,SWI,SOUT=0 

DISPLAY AT (4,1) ERASE ALL: "ENTER BAL 

FROM PREVIOUS" : : "MONTH:" :: GOSUB 

:: ACCEPT AT ( 8, 5) VALIDATE (DIGIT, ". " 

IF d$="" THEN 370 

GOSUB 1760 :: IF RC<>0 THEN 2630 

FOR 1=1 TO CK-1 

SCK=SCK+CKAMT (I) 

NEXT I 

FOR 1=1 TO DP-1 

SDP = SDP+DEP (I) 
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2730 NEXT I 
2740 FOR 1=1 TO WI-1 
2750 SWI=SWI+WITH(I) 
2760 NEXT I 
2770 NOUT=0 
2780 FOR 1=1 TO CK-1 
2790 IF CKOUT(I)=0 THEN 2820 
2800 NOUT=NOUT+l 
2 810 SOUT=SOUT+CKAMT ( I ) 
2820 NEXT I 

2830 BAL=VAL(D$) -SCK-SWI+SDP 
2840 DISPLAY AT (4,1) ERASE ALL:" ITEM" :: 
DISPLAY AT (4, 11) : "NUMBER" :: DISPLAY AT 
(4,24) :"SUM" 

2850 DISPLAY AT ( 8, 1 ) : "PRIOR BAL . " :: DIS 
PLAY AT (8,20) :USING 3530:VAL(D$) 
2860 DISPLAY AT ( 10 , 1 ): "CHECKS" :: DISPLA 
Y AT (10, 13) :CK-1 :: DISPLAY AT ( 10 , 20 ): US 
ING 3530:SCK 
2870 DISPLAY AT(12,1): 
LAY AT (12, 13) :DP-1 : : 
USING 3530 :SDP 
2880 DISPLAY AT (14, 1) : 
ISPLAY AT (14, 13) :WI-1 
0) :USING 3530:SWI 
2890 DISPLAY AT (16, 1) : 
LAY AT (16, 13) :NOUT : : 
USING 3530:SOUT 

2900 DISPLAY AT (20 , 5) : "BALANCE = " :: DI 
SPLAY AT (20, 15) :USING 3530 : BAL :: GOSUB 
3110 : : GOSUB 3470 : : RETURN 
2910 REM WRITE NEW ONES 

2920 DISPLAY AT (4,1) ERASE ALL:" ** TERMI 
NATING MENU **": : :" 1 - SAVE CHECKS FO 
R" : " ANALYSIS": :" 2 - TERMINATE PRO 
GRAM" 

2 930 DISPLAY AT (12,1):" 3 - RETURN TO PR 
IMARY":" MENU" :: GOSUB 3500 
2940 GOSUB 3110 :: GOSUB 3480 :: RV=RV-4 
8 : : IF RV<0 THEN 2940 :: IF RV>3 THEN 2 
940 :: ON RV GOTO 2950,3090,370 
2950 OPEN #2: "DSKl. CHECKS "&MY$,SEQUENTIA 
L, OUTPUT, INTERNAL, VARIABLE 64 
2960 FOR 1=1 TO CK-1 

2 97 PRINT #2 :CKNO(I) , CKAMT (I) , CKCAT (I) 
2980 NEXT I 
2990 CLOSE #2 

3000 IF MY$="TEMP" THEN 3020 
3010 OPEN #1 : "DSKl. CMON", OUTPUT, DISPLAY 
, FIXED 10 :: PRINT #1:MY$ :: CLOSE #1 



: "DEPOSITS" : : DISP 
DISPLAY AT (12,20) : 

: "WITHDRAWALS" : : D 
: : DISPLAY AT (14,2 

: "OUT CKS. " : : DISP 
DISPLAY AT (16,20) : 
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3020 DISPLAY AT (4, 5) ERASE ALL:" * * EXI 

T MENU * *" 

3030 DISPLAY AT (9,1):" 1 - RUN ANALYSIS" 

: :" 2 - TERMINATE PROGRAM" :: GOSUB 350 

:: GOSUB 3110 :: GOSUB 3480 :: RV=RV-4 

8 : : IF RV>2 THEN 3030 

3040 IF RV=1 THEN DELETE "DSK1 . SAVE"&MY$ 

:: RUN "DSK1 .ANALYZE" ELSE 3090 
3050 DISPLAY AT (4,1) ERASE ALL: "MAXIMUM 
F 70 CHECKS HAS": : "BEEN REACHED." :: GO 
SUB 3080 : : GOSUB 3110 : : GOSUB 3470 : : 
RETURN 

3060 DISPLAY AT (4,1) ERASE ALL: "THE MAXIM 
UM OF 10 WITH-": : "DRAWALS HAS BEEN REAC 
HED." :: GOSUB 3080 :: GOSUB 3110 :: GOS 
UB 3470 : : RETURN 

3070 DISPLAY AT (4,1) ERASE ALL: "THE MAXIM 
UM OF 10 DEPOSITS": : "HAS BEEN REACHED." 

:: GOSUB 3080 :: GOSUB 3110 :: GOSUB 34 
7 : : RETURN 

3080 DISPLAY AT ( 10, 1 ): "CALCULATE BALANCE 
, SAVE": : "CHECKS, AND START PROGRAM": : 
"AGAIN." :: RETURN 

3090 IF FUNC$="FETCH" THEN DELETE "DSK1 . 
SAVE"&MY$ 

310 CALL CLEAR :: END 
3110 REM MAKE BORDER 

312 CALL COLOR (1, 1, 1) : : CALL VCHAR(1,31 
,BC,RP):: CALL VCHAR ( 1, 32, BC, RP) : : CALL 
VCHAR(1, 1,BC,RP) : : CALL VCHAR ( 1 , 2, BC, RP) 
3130 CALL HCHAR(1, 1,BC, 31) : : CALL HCHAR ( 
2,1,BC,31):: CALL HCHAR (22, 1, BC, 32) : : CA 
LL COLOR (1, 13, 1) : : RETURN 
314 REM SAVE CHECKBOOK 
3150 FUNC$="SAVE" 

3160 OPEN #44 : "DSK1 . SAVE"&MY$, OUTPUT, INT 
ERNAL, SEQUENTIAL, VARIABLE 64 
3170 FOR 1=1 TO CK-1 
3180 PRINT #44:CKNO(I) 
,CKOUT (I) : : NEXT I : : 



, CKAMT ( I ) , CKCAT ( I ) 
PRINT #44: 99999, 99 



999, 99999, 99999 

3190 FOR 1=1 TO DP-1 

3200 PRINT #44:DEP(I):: NEXT I :: PRINT 

#44:99999 

3210 FOR 1=1 TO WI-1 

3220 PRINT #44 :WITH(I) : : NEXT I :: PRINT 

#44:99999 
3230 PRINT #44:LGC,LCKNO,LCKAMT,LCKCAT,L 
CKOUT : : CLOSE #44 : : RETURN 
3240 REM FETCH CHECKBOOK 
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3250 FUNC$="FETCH" 

3260 OPEN #44: "DSK1 . SAVE"&MY$, INPUT , INT 
ERNAL, SEQUENTIAL, VARIABLE 64 
3270 FOR 1=1 TO MAXCK 

3280 INPUT #44:CKN0 (I) , CKAMT (I) , CKCAT (I) 
, CKOUT(I):: IF CKCAT ( I ) =99999 THEN 3300 
3290 NEXT I 
3300 CK=I 

3310 FOR 1=1 TO MAXDEP 

3320 INPUT #44:DEP(I):: IF DEP(I)=99999 
THEN 3340 
3330 NEXT I 
3340 DP=I 

3350 FOR 1=1 TO MAXWITH 

3360 INPUT #44 :WITH(I) : : IF WITH(I)=9999 
9 THEN 3380 
3370 NEXT I 
3380 WI=I 

3390 INPUT #44 : LGC, LCKNO, LCKAMT, LCKCAT, L 
CKCAT : : CLOSE #44 : : RETURN 
3400 DISPLAY AT (4,1) ERASE ALL:">> ERROR. 
"; TYPE $; "ENTERED" : :" IN INVALID FORMA 
T." :: GOSUB 342 :: RETURN 

3410 DISPLAY AT (4,1) ERASE ALL:" >> ERROR. 
"; TYPE $; "ENTERED" : :" NOT FOUND." :: G 
OSUB 3420 : : RETURN 

3420 DISPLAY AT ( 10 , 4 ) : "YOU ENTERED:" :: 
DISPLAY AT(13,8):D$ :: RETURN 
3430 DISPLAY AT (4,1) ERASE ALL: "ENTER AMO 
UNT OF";TYPE$; " . " : : : : "PRESS <ENTER> W 
HEN NO MORE . " : : RETURN 

3440 DISPLAY AT ( 18, 1 ): "AMOUNT : " :: GOSUB 
3110 :: ACCEPT AT ( 18 , 12 ) VALIDATE (DIGIT, 
" . ") :D$ : : RETURN 

3450 DISPLAY AT (4,1) ERASE ALL:" ENTER AM 
OUNT OF": : TYPES; "TO BE DELETED.": : : : 
" PRESS <ENTER> IF NO MORE." 
3460 GOSUB 3110 :: ACCEPT AT ( 18, 8 ) VALIDA 
TE (DIGIT, ".") :D$ :: RETURN 
3470 DISPLAY AT (23,1):" >>> PRESS ANY 
KEY" : " TO CONTINUE. " 
34 8 CALL KEY(0,RV, SV) 
3490 IF SV=0 THEN 3480 :: RETURN 
3500 DISPLAY AT(23,3):">> PRESS NUMBER F 
OR":" FUNCTION DESIRED" :: RETURN 
3510 DISPLAY AT (24, 4):" ** LISTED 
" : : RETURN 

3520 IMAGE #### #####.## ## 
3530 IMAGE #####.## 
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100 CALL SCREEN(4):: BC=33 :: CALL CHAR ( 

BC, "FFFFFFFFFFFFFFFF") : : CALL CLEAR 

110 CALL CHARPAT (37,PCEN$, 36,DLR$) : : CAL 

L CHAR(91,PCEN$, 93,DLR$) : : GOTO 450 

12 REM CHECKBOOK MGMT 

130 REM UTILITY/ANALYSIS 

14 REM C JOHN COPE 1983 

150 REM CRACKING THE 99/4A 

160 OPTION BASE 1 

170 DIM T(20) ,P (20) ,SC(20) ,CT(20) ,CSC(20 



,MON$ (127) 



180 
ARY 
190 
NTH 
200 



DISPLAY AT (4, 1) 
MENU ***" 
DISPLAY AT (6, 1) 



ERASE ALL: 



PRIM 



1 - ANALYZE ANY MO 



ANALYZE CURREN 



ANALYZE CUMUL 



DISPLAY AT (8, 1) : " '. 
T MONTH" 

210 DISPLAY AT (10, 1) : " 
ATIVE" 
220 DISPLAY AT (12,1):" 4 - ANALYZE TEMP. 

CHECKS": :" 5 - TERMINATE PROGRAM" 
230 DISPLAY AT (23,1):" PRESS NUMBER FOR 

FUNCTION DESIRED." 
240 GOSUB 1180 : : GOSUB 1250 : : IF RV>5 
THEN 24 

250 ON RV GOTO 270,450,1040,2 60,1290 
260 MY$="TEMP" 
27 REM ANALYZE ANY MONTH 

280 FOR 1=1 TO 20 :: T(I)=0 :: SC(I)=0 : 
: NEXT I :: S=0 :: IF MY$="TEMP" THEN GO 
SUB 320 : : GOTO 390 

290 DISPLAY AT (4,1) ERASE ALL: "ENTER MONT 
H AND YEAR": : "OF MONTH YOU WANT TO": :" 
ANALYZE, IN THE FOLLOWING": : "FORMAT:" 
300 DISPLAY AT (12,1):" MMYY" : : : "WHER 
E 'MM' IS THE MONTH": :"(E.G., 02=FEB, 1 
l=NOV) " : :"AND YY = THE YEAR." 
310 GOSUB 1180 :: ACCEPT AT (2 3, 5) VALIDAT 
E (DIGIT) SIZE (4) :MY :: MY$=STR$ (MY) : : IF 
LEN(MY$)<3 THEN 310 :: IF LEN(MY$)=3 THE 
N MY$="0"&MY$ :: GOSUB 320 :: GOTO 390 
320 OPEN #32 : "DSK1. ", INPUT , RELATIVE, INT 
ERNAL 

330 C=l : : FOR 1=1 TO 127 
340 INPUT #32:A$,A,J,K 
350 IF LEN(A$)=0 THEN 380 
360 MON$(C)=A$ :: C=C+1 
370 NEXT I 
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380 CLOSE #32 :: RETURN 

390 DSN$="CHECKS"&MY$ 

400 FOR 1=1 TO 24 

410 IF DSN$=MON$ (I) THEN 480 

420 NEXT I 

430 DISPLAY AT (4,1) ERASE ALL:">> ERROR. 

FILE DOES NOT": :" EXIST FOR THE MONTH 



AND YEAR YOU CHOSE": 



1 (";MY$ 
GOTO 120 
SC(I)=0 : 



440 GOSUB 1180 : : GOSUB 1240 

450 REM ANALYZE THIS MO. 

460 FOR 1=1 TO 20 :: T(I)=0 : 

: NEXT I : : S=0 

470 OPEN #33: "DSK1.CMON", INPUT , DISPLAY 

, FIXED 10 :: INPUT #33:MY$ :: CLOSE #33 

480 CALL CLEAR 

490 OPEN #1 : "DSK1 . CHECKS"&MY$ , SEQUENTIAL 

, INTERNAL, INPUT , VARIABLE 64 

500 INPUT #1:A,B,C 

510 GOTO 540 

520 CLOSE #1 

530 GOTO 550 

540 S=S+B :: T(C)=T(C)+1 :: SC(C)=SC(C)+ 

B : : IF EOF(1)<>0 THEN 520 :: GOTO 500 

550 FOR 1=1 TO 20 

560 P (I) = (SC(I) /S) *100 

570 NEXT I 

580 GOSUB 590 : : GOSUB 620 : : GOTO 120 

590 DISPLAY AT (1,1) ERASE ALL:" CAT. NO 

PER TOTAL" 
600 DISPLAY AT (3, 1) : "CASH" : "HOUSE" : "CLOT 
HES" : "MEDICAL" : "AUTO" : "CHARGE" : "FOOD" : "M 
ISC" : "INSUR" : "DONATE" : "UTILI" : "PHONE" : "F 
UN" : "YOUR 14" 

610 DISPLAY AT (17, 1) : "YOUR 15": "YOUR 16" 
:"YOUR 17": "YOUR 18": "YOUR 19": "YOUR 20" 

: : RETURN 
620 FOR 1=1 TO 20 

630 DISPLAY AT (2+1, 9) : USING "## ##.##[ 
]#####. ##":T(I) ,P(I),SC(I) 
640 NEXT I 

650 DISPLAY AT (24 , 5) : USING 1300:S 
660 DISPLAY AT (24, 1 ) SIZE (4 ) :MY$ 

67 CALL KEY(0,RW, SV) : : IF SV=0 THEN 67 


68 GOTO 6 90 ! GO INTEGRATE 
690 REM COMBINE RESULTS 

700 IF INTG=1 THEN 120 : : INTG=1 : : CALL 
CLEAR :: DISPLAY AT (4,1) ERASE ALL:" IN 
TEGRATING ... PLEASE": :" WAIT" 
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710 GOSUB 320 
720 FOR 1=1 TO C 

730 IF MONS (I)="CINT" THEN 760 
740 NEXT I 

750 OPEN #25: "DSK1.CINT", OUTPUT, DISPLAY 
, FIXED 10 :: PRINT #25:MY$ :: CLOSE #25 
: : GOTO 77 

760 OPEN #25: "DSK1.CINT", INPUT , DISPLAY 
, FIXED 10 :: INPUT #25:CINT$ :: CLOSE #2 
5 : : IF CINT$=MY$ THEN GOSUB 1210 :: GOT 
O 120 ELSE 750 

770 OPEN #32 : "DSK1. ", INPUT , RELATIVE, INT 
ERNAL 

780 FOR 1=1 TO 127 :: INPUT #32:A$,A,J,K 
:: IF LEN(A$)=0 THEN ANS$="N" :: GOTO 8 
10 

790 IF A$="CUMULATIVE" THEN ANS$="Y" :: 
GOTO 810 

800 NEXT I : : ANS$="N" 
810 CLOSE #32 
820 IF ANS$="Y" THEN 890 

830 OPEN #1 : "DSK1. CUMULATIVE", INTERNAL, O 
UTPUT, SEQUENTIAL, FIXED 50 
840 FOR 1=1 TO 20 
850 PRINT #1:1(1) ,SC(I) 
860 NEXI I 
870 CLOSE #1 
880 GOTO 12 

8 90 OPEN #1 : "DSK1 . CUMULAIIVE" , INIERNAL, S 
EQUENIIAL,UPDA1E, FIXED 50 



300 



10 2 



CT(I)=0 



,CSC(I) 



FOR 1=1 

NEXI I 

FOR 1=1 TO 20 

INPUT #1:CT(I 

NEXT I 

FOR 1=1 TO 20 

CT (I)=CT (I) +T (I) 

CSC(I)=CSC(I)+SC(I) 

NEXT I 

RESTORE #1 

FOR 1=1 TO 20 

PRINT #1 :CT (I) , CSC (I) 

NEXT I 

CLOSE #1 

GOTO 120 

REM ANALYZE CUMULATIVE 

FOR 1 = 1 TO 20 : : SC (I) 
: : NEXT I : : S=0 
1060 OPEN #1: "DSK1. CUMULATIVE 
SEQUENTIAL, INPUT , FIXED 50 



CSC(I)=0 



910 

920 

930 

940 

950 

960 

970 

980 

990 

1000 

1010 

1020 

1030 

1040 

1050 







: T(I)=0 
INTERNAL, 
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1070 FOR 1=1 TO 20 

1080 INPUT #1:T(I) ,SC(I) 

1090 NEXT I 

1100 CLOSE #1 

1110 FOR 1=1 TO 20 

1120 S=S+SC(I) 

1130 NEXT I 

1140 FOR 1=1 TO 20 

1150 P (I)=(SC(I) /S) *100 

1160 NEXT I 

1170 MY$="CUM " :: GOSUB 590 :: GOSUB 62 

: : GOSUB 1250 : : GOTO 120 

1180 REM MAKE BORDER 

1190 CALL COLOR (1, 1, 1) : : CALL VCHAR(1,1, 

BC,24):: CALL VCHAR ( 1, 2 , BC, 24 ) : : CALL VC 

HAR(1, 31, BC, 24) : : CALL VCHAR ( 1, 32 , BC, 24 ) 

1200 CALL HCHAR(1, 1,BC, 31) : : CALL HCHAR ( 

2,1,BC,31):: CALL HCHAR (22, 1, BC, 31) : : CA 

LL COLOR (1, 13, 1) : : RETURN 

1210 DISPLAY AT (10,1):" INTEGRATION BYP 

ASSED - ": :" CURRENT MONTH ALREADY": : 

INTEGRATED . " 
1220 GOSUB 1180 

1230 FOR 1=1 TO 2000 : : NEXT I : : RETURN 
1240 DISPLAY AT (23,1):" PRESS ANY KEY TO 

CONTINUE" 
1250 CALL KEY(0,RV, SV) 
1260 IF SV=0 THEN 1250 
127 RV=RV-4 8 
12 8 RETURN 

1290 CALL CLEAR :: END 
1300 IMAGE " GRAND TOTAL = ]#####.##" 
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Super Cataloger 

As you've probably found, there are a number of catalog listers available. Often you will find that a 
program, once found in the listing, must then be loaded and run. This program overcomes this 
inconvenience and offers a few additional options. 

When running the program, thefirst prompt to appear asks whether you would I ikea copy of thecatalog 
sent to theprinter. The letter "N"for NO isthedefault that appears under thecursor, and may beselected 
simply by pressing ENTER. Otherwise pressing 'Y"for YES will lead you through a series of parameters 
such astheRS232 port number you are using, the number of bits used (7 or 8), and the baud rate. Again, 
the letter the cursor flashes above will be the default value if you press the ENTER key. 

Followingthe printer option, the program loads all program names, filesizes, andfiletypesinto an array 
and displays the directory on the screen in one shot. (Listings longer than one screen may be continued 
by pressi ng ENTER. Any program may be chosen and RU N by enteri ng the number that appears next to 
the program name. What a time saver! 

100 REM CRACKING THE 9 9/4A 

110 REM SUPERCATALOGGER 

120 REM BRUCE WYCHE 02/08/84 

130 ON BREAK NEXT : : ON WARNING NEXT : : 

ON ERROR 700 

14 UNTRACE : : CALL CHARSET 

150 DIM AA(127) 

160 DIM B$ (5) ,0$ (127) , G$ (127) ,TP$ (5) 

170 BL$=RPT$(" ",56):: DEC$="0123456789" 

180 CALL CLEAR :: CALL PEEK (-24576, @ ): : 

IF @<>0 THEN CALL INIT :: CALL LOAD (-318 

6,16):: CALL LOAD (-31878 , ) 

190 RESTORE 640 :: FOR 1=1 TO 5 : : READ 

B$ (I) ,TP$ (I) : : NEXT I 

210 DISPLAY ERASE ALL AT (2,1):" SUPERCA 

TALOGGER PROGRAM" 

220 DISPLAY AT (4,1):" READ OR PRINT 

OUT" 

230 DISPLAY AT(6,1):" AUTOMATIC RUN O 

PTION" 

240 RESTORE 650 :: NK=1 :: GOSUB 610 :: 

IF A$ (1)="N" THEN 270 

250 NK=3 : : GOSUB 610 

260 PF=-1 :: OPEN #2 : "RS232/ "&A$ ( 1 ) & " . DA 

="&A$ (2) &" .BA="&B$ (VAL(A$ (3) ) ) 

270 DISPLAY AT (20, 1 ): "READING CATALOG, S 

TANDBY 

280 OPEN #1 : "DSK1. ", INPUT , RELATIVE, INTE 

RNAL :: INPUT #1:@$,@,J,K 

290 H$="DSK. "&@$&" "&"AVAIL "&STR$(K)&"/ 
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"&STRS (J) 

300 HS=HS&RPT$(" ",ABS ( (LEN(H$) <29) ) * (28 

-LEN(HS) ) ) &"NM FILENAME SIZ TYPE LEN P 



10 


1 = 


20 


1=1+1 :: INPUT #1 : G$ ( I ) , AA ( I ) , J, K :: 


IF 


LEN(G$ (I) )=0 THEN LF=I-1 :: CLOSE #1 




GOTO 3 60 


30 


OS (I)=STR$ (I) &RPT$ (" ", 3-LEN(STR$ (I) 



&G$ (I) &RPT$ ("-", INT (10-LEN(G$ (I) ) ) ) &ST 
R$ (J) &RPTS (" ", 3-LEN (STR$ (J) ) ) &TP$ (ABS (A 
A(I))) 

340 IF ABS(AA(I))<>5 THEN 0$ ( I ) =0$ ( I ) &RP 
T$(" ", 3-LEN (STR$ (K) )) &STR$ (K) 
350 GOTO 320 

360 DISPLAY ERASE ALL AT(1,1):H$ : : IF ( 
PF)THEN PRINT #2 : SEG$ (H$, 1, 28 ) : SEG$ (H$, 2 
9,56) 
37 R=2 

380 FOR P=l TO LF 
390 R=R+1 

400 DISPLAY AT (R, 1) : 0$ (P) : : IF (PF)THEN 
PRINT #2 :0$ (P) 
410 IF R<>22 THEN 490 
420 DISPLAY AT (23, 1 ) : STR$ (P+l ) & " PROGRAM 

";TAB(13) ; " (ENTER=CONTINUE) " 
430 ACCEPT AT (23, 1) VALIDATE (DEC$&CHR$ (13 
) )BEEP SIZE(-3) :@$ 

440 IF @$=STR$ (P+l) THEN R=2 :: CALL HCHA 
R(3, 1,32, 672) : : GOTO 490 ELSE @=VAL(@$) 
450 IF @<1 OR @>LF THEN M$="MUST BE BETW 
EEN 1 AND "&STR$(LF):: GOSUB 690 :: GOTO 

420 
460 IF ABS(AA(@))=5 THEN 730 
470 IF AA(@)=4 THEN 730 

480 M$="MUST BE A PROGRAM FILE !!!" :: G 
OSUB 690 : : GOTO 420 
490 NEXT P 

500 DISPLAY AT (23,1): "NO MORE FILES, SEL 
ECT ONE : 000=AGAIN XXX=PGM 999=STOP" 
510 ACCEPT AT (24, 1) VALIDATE (DEC$) SIZE (-3 
) :@$ : : @=VAL(@$) 
520 IF @<>0 THEN 550 
530 IF (PF)THEN PF=0 :: CLOSE #2 
540 GOTO 180 
550 IF @<>999 THEN 590 
560 IF (PF)THEN CLOSE #2 
570 CALL CLEAR :: CALL CHARSET 
580 STOP 
590 IF @>LF THEN M$="MUST BE BETWEEN 1 A 
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ND "&STR$(LF):: GOSUB 690 :: GOTO 500 
60 IF ABS(AA(@))=5 OR ABS(AA(@))=4 THEN 
730 ELSE M$="MUST BE A PROGRAM FILE ! ! ! 
" : : GOSUB 690 : : GOTO 500 
610 REM ACCEPT SUBROUTINE 

620 FOR K=l TO NK :: READ R, C, AR, AC, SZ, V 
$,M$ :: DISPLAY AT(R,C):M$ :: ACCEPT AT ( 
AR, AC) VALIDATE (V$) SIZE (SZ) :A$ (K) : : NEXT 
K 

630 RETURN 

640 DATA 300,DIS/FIX, 1200 , DIS/VAR, 2400, I 
NT/FIX, 4800, INT/VAR, 9600, PROGRAM 
650 DATA 12, 1, 12,24,-1, YNyn, PRINTOUT OF 
CATALOG ? NY 



660 
BER 


DATA 14, 1, 14, 
: 12 


,24 


,-l,12,RS232 POR1 


' NUM 


670 


DATA 15,1,15, 


,24 


, -1, 7 8, NUMBER OF 


BITS 


USED ? 87 








680 


DATA 16,1,19, 


,18 


,-1, 12345, BAUD RATE ( 


BITS/SEC) 


1 = 


300 2=1200 3= 


^2400 




4=4800 




5=9600 


YOUR 


CHOICE ? 5 








690 


FOR 1=1 TO 4 


: : 


DISPLAY AT (23, 1) 


:BL$ 




CALL SOUND (— 


400 


, 110, 8) : : DISPLAY 


' AT ( 


23,: 


1) :M$ : : CALL 


SOUND(99, 110,30) : : 


NEXT 


I 


: : RETURN 








700 


CALL ERR(E,T, 


,s, 


L) 




710 


M$="<<< wEiRdO 


error "&STR$(E)&" 


>>> 


II 


: GOSUB 690 








720 


RETURN 180 








730 


REM GENERAL ] 


PURPOSE LOADER 


99ER 



MAGAZINE USED BY PERMISSI 

ON 

74 CALL CHARSET 

750 CALL PEEK(-31952, I, J) : : CALL PEEK(I* 
256+J-65534, I, J) : : K=I*256+J-65534 :: @$ 
= "DSK1 . "&GS (@) : : CALL LOAD (K, LEN (@$ ) ) 
760 FOR 1=1 TO LEN(@$):: CALL LOAD(K+I,A 
SC (SEGS (@$, I, 1) ) ) : : NEXT I :: CALL LOAD ( 
K+I, 0) 
770 RUN "DSK1. 1234567890" 
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Tl Basic 

Christmas Billboard 

This is oneofthefew programs that requires only console Basic. Although this program has limited uses, 
it isindudedbecauseit iscreativeandrevealsanextensiveuseofwhatconsoleBasiccando.Youwill find 
the code is somewhat lengthy, but self-documenting. 

On theleft side of thescreen the program displays a Christmastree with wrapped packages underneath. 
U p to seven messages of your choice are displayed, one at a time, on the right side of the screen. The 
length of time that each message is displayed is also selectable. The program prompts you for each 
message and its associated time of display. For however long a message is displayed, the lights on the 
Christmas tree blink as rapidly as possible; a random number generator is used to select which light to 
blink. After the Christmas tree is drawn, the song "I 'II be home for Christmas" is played. As each noteis 
played, a light on theChristmas tree blinks. 

After the last message has been displayed, the screen is blanked and the program starts over at its 
beginning, drawing theChristmas tree and repeating your messages. 

When entering a message, as soon as you press ENTER you will see the statement "VALI DATI NG YOUR 
MESSAGE "on thescreen. If a word is longer than the number of col umns allocated for message display, 
or if the number of words are greater than the dimension of the variable used to hold them, or if the 
combination of words are such that they will not fit in the amount of space reserved on thescreen for 
message display, an appropriate error message is displayed on the screen. This is probably the most 
difficult and interesting code in the program. 

100 REM COPYRIGHT 1983 

110 REM JOHN ROBERT COPE 

12 REM CRACKING THE 9 9/4A 

130 REM BASIC 

140 REM GET I/P INFO 

150 OPTION BASE 1 

160 MNO=l 

17 CALL CLEAR 

180 PRINT "ENTER YOUR CHRISTMAS M 

ESSAGE NO. ";MNO; "OF 6": : . 

190 PRINT " ENCLOSE MESSAGE IN QUOTES 

(HOLD DOWN <FCTN> AND THEN PRESS 
<P> TO MAKE A QUOTE).": : 
200 PRINT " EACH MESSAGE CANNOT BE 

LONGER THAN 4 LINES.": 
210 PRINT " IF YOU WANT A QUOTE IN 

THE MESSAGE, PUT TWO OF THEM WHERE 
YOU WANT IT. " : : : 
220 BL$=" " 

230 PRINT "IF NO MORE MESSAGES, JUST P 
RESS ENTER.": : : 
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240 INPUT ">" :MSG$ (MNO) 

250 IF MSG$(MNO)="" THEN 740 

260 GOSUB 430 

27 CALL CLEAR 

280 PRINT "ENTER THE TIME - IN SECONDS - 

THAT YOU WANT THIS MESSAGETO REMAIN ON 
THE SCREEN BEFORE GOING TO THE NEXT 

MESSAGE.": : 
290 IF MNO>l THEN 310 

30 PRINT "IF YOU HAVE GIVEN ONLY ONE M 
ESSAGE AND YOU WANT IT TO BE DISPLAYED 
PERMANENTLY, ENTER ZERO.": : 
310 PRINT "ACCEPTABLE VALUES ARE FROM O 



NE (1) TO SIXTY (60) 



SECONDS" : 



320 INPUT ">":SEC(MNO) 

330 IF MNO>l THEN 350 

340 IF SEC (MNO) =0 THEN 740 

350 IF MNO=6 THEN 740 

360 IF SEC(MNO)<=60 THEN 380 

370 SEC (MNO) =60 

380 IF SEC (MNO) >0 THEN 400 

390 SEC (MNO) =1 

400 MNO=MNO+l 

410 GOTO 17 

42 REM VALIDATE MSGS 

430 CALL CLEAR 

440 PRINT " VALIDATING YOUR MESSAGE. 



450 DIM WD$ (6, 40) ,L (13) 

460 PTR=1 

47 WORD=l 

480 SP=POS (MSGS (MNO) ,BL$,PTR) 

490 IF SP<>0 THEN 520 

500 WLEN=LEN(MSG$ (MNO) ) -PTR+1 

510 GOTO 570 

520 WLEN=SP-PTR 

530 IF WLENO0 THEN 570 

540 REM SIDE BY SIDE BLANKS 

550 PTR=PTR+1 

5 60 GOTO 480 

570 WD$ (MNO, WORD) =SEG$ (MSG$ (MNO) ,PTR,WLE 

N) 

580 IF WLEN>13 THEN 2310 

5 90 REM NO MORE WORDS ? 

600 IF SP=0 THEN 670 

610 PTR=SP+1 

62 WORD=WORD+l 

630 IF WORD<=40 THEN 480 

64 CALL CLEAR 

65 PRINT "SORRY. NO MORE THAN 40 W 
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ORDS PER SENTENCE." 

6 60 GOTO 38 90 

670 GOSUB 3720 

680 IF SRC=0 THEN 720 

6 90 CALL CLEAR 

700 PRINT "SORRY. THIS PARTICULAR C 

OMBINATION OF WORDS WILL NOT FIT ON TH 

E SCREEN AREA. " 

710 GOTO 38 90 

72 RETURN 

730 REM ALL VALIDATED 

74 CALL CLEAR 

750 CALL SCREEN (12) 

760 PASS=0 

77 LET TRANS=1 

780 LET BLACK=2 

7 90 LET MEDGR=3 
800 LET LTGR=4 
810 LET DKBLU=5 
820 LET LTBLU=6 
830 LET DKRED=7 
84 LET CYAN=8 
850 LET MEDRED=9 
860 LET LTRED=10 
870 LET DKYEL=11 
880 LET LTYEL=12 

8 90 LET DKGR=13 
90 LET MAGEN=14 
910 LET GRAY=15 
920 LET WHITE=16 

930 REM DEFINE SHAPES 
940 LET CNDL$="FFE7C3C3C3C3C3FF" 
950 LET BLOCKS="FFFFFFFFFFFFFFFF" 
960 LET EMPTY="0000000000000000" 
970 LET LRTRI$="0103070F1F3F7FFF" 
980 LET LLTRI$="80C0E0F0F8FCFEFF" 
990 LET ULTRI$="FFFEFCF8F0E0C080" 
1000 LET URTRI$="FF7F3F1F0F070301" 
1010 LET RBLK$="0F0F0F0F0F0F0F0F" 
1020 LET LBLK$="F0F0F0F0F0F0F0F0" 
1030 LET TLINE$="FF00000000000000" 
1040 LET BLINE$="00000000000000FF" 
1050 LET MLINE$="000000FFFF000000" 
1060 LET ULST$="01012311090543FF" 
1070 LET URST$="8080C48890A0C2FF" 
1080 LET LLST$="FF43050911210301" 
1090 LRST$="FFC2A0908884C080" 
1100 REM MAKE THE TREE 
1110 CALL CLEAR 
112 CALL CHAR(13 6,LRTRI$) 
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1130 


CALL 


CHAR(137,LLTRI$) 


1140 


CALL 


COLOR ( 14, DKGR,LTYEL) 


1150 


CALL 


HCHAR(6, 9, 136) 


1160 


CALL 


HCHAR(6, 10, 137) 


1170 


CALL 


CHAR ( 138, BLOCK$) 


1180 


CALL 


HCHAR(7, 9, 138,2) 


1190 


CALL 


HCHAR(8, 8, 136) 


1200 


CALL 


HCHAR(8, 9, 138,2) 


1210 


CALL 


HCHAR(8, 11, 137) 


1220 


CALL 


HCHAR(9, 8, 138,4) 


1230 


CALL 


HCHAR(10, 7, 136) 


1240 


CALL 


HCHAR(10, 8, 138, 4) 


1250 


CALL 


HCHAR(10, 12, 137) 


1260 


CALL 


HCHAR(11, 7, 138, 6) 


1270 


CALL 


HCHAR(12, 6, 136) 


1280 


CALL 


HCHAR(12, 7, 138, 6) 


1290 


CALL 


HCHAR(12, 13, 137) 


1300 


CALL 


HCHAR(13, 6, 138, 8) 


1310 


CALL 


HCHAR(14, 5, 136) 


1320 


CALL 


HCHAR(14, 6, 138, 8) 


1330 


CALL 


HCHAR(14, 14, 137) 


1340 


CALL 


HCHAR(15,5, 138, 10) 


1350 


CALL 


HCHAR(16, 4, 136) 


1360 


CALL 


HCHAR(16,5, 138, 10) 


1370 


CALL 


HCHAR(16, 15, 137) 


1380 


CALL 


HCHAR(17, 3, 13 6) 


1390 


CALL 


HCHAR(17, 4, 138, 12) 


1400 


CALL 


HCHAR(17, 16, 137) 


1410 


CALL 


COLOR (13, BLACK, LTYEL 


1420 


CALL 


CHAR(12 8,RBLK$) 


1430 


CALL 


CHAR(12 9,LBLK$) 


1440 


CALL 


HCHAR(18, 9, 128) 


1450 


CALL 


HCHAR(18, 10, 129) 


1460 


CALL 


COLOR (15, GRAY, LTYEL) 


1470 


CALL 


CHAR (144, BLOCKS) 


1480 


CALL 


CHAR ( 145, URTRI$) 


1490 


CALL 


CHAR(1466,ULTRI$) 


1500 


CALL 


HCHAR(19, 8, 145) 


1510 


CALL 


HCHAR(19, 11, 14 6) 


1520 


CALL 


HCHAR(19, 9, 14 4,2) 


1530 


CALL 


HCHAR(20, 9, 14 4,2) 


1540 


CALL 


COLOR (16, LTBLU, LTRED 


1550 


CALL 


CHAR(152, BLOCK$) 


1560 


CALL 


CHAR(153,ULTRI$) 


1570 


CALL 


CHAR(154,LRTRI$) 


1580 


CALL 


HCHAR(19, 4, 152) 


1590 


CALL 


HCHAR(19,5, 153) 


1600 


CALL 


CHAR ( 155, EMPTY$) 


1610 


CALL 


HCHAR(19, 6, 155) 


1620 


CALL 


HCHAR(20, 4, 153) 
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1630 CALL HCHAR(20, 5, 155) 
1640 CALL HCHAR(20, 6, 154) 
1650 CALL HCHAR(21, 4, 155) 
1660 CALL HCHAR(21, 5, 154) 
1670 CALL HCHAR(21, 6, 152) 
168 CALL COLOR (12, CYAN, DKRED) 

16 90 CALL CHAR (12 0, BLOCKS) 
1700 CALL CHAR(121,MLINE$) 
1710 CALL HCHAR(19, 13, 120, 3) 
1720 CALL HCHAR(20, 13, 121, 3) 
1730 CALL HCHAR(21, 13, 120, 3) 
1740 CALL COLOR (11, WHITE, TRANS) 
1750 CALL CHAR(112,ULST$) 

17 60 CALL CHAR(113,URST$) 
1770 CALL CHAR(114,LLST$) 
1780 CALL CHAR(115,LRST$) 
1790 CALL HCHAR(4, 9, 112) 
1800 CALL HCHAR(4, 10, 113) 
1810 CALL HCHAR(5, 9, 114) 
1820 CALL HCHAR(5, 10, 115) 
1830 REM DRAW CANDLES 
184 CALL CHAR ( 139, CNDL$) 
1850 CALL CHAR(96,CNDL$) 

18 60 CALL CHAR(104,CNDL$) 
1870 CALL COLOR(9,DKGR,DKBLU) 
1880 CALL COLOR ( 10, DKGR,MEDRED) 

18 90 CALL HCHAR(10, 9, 139) 
190 CALL HCHAR(8, 10, 96) 
1910 CALL HCHAR(12, 11, 104) 
1920 CALL HCHAR(13, 8, 139) 
1930 CALL HCHAR(14, 6, 96) 
1940 CALL HCHAR(15, 10, 104) 
1950 CALL HCHAR(14, 13, 139) 

19 60 CALL HCHAR(16, 8, 13 9) 
1970 CALL HCHAR(16, 12, 96) 
198 CALL HCHAR(17, 5, 104) 
19 90 CALL HCHAR(17, 14, 96) 
2000 GOSUB 3190 

2010 REM MAINLINE ROUTINE 

2020 IF PASS>0 THEN 2060 

2 030 MNO=l 

2040 PASS=1 

2050 REM GO WRITE A MSG 

2060 GOSUB 2210 

2070 IF SEC(MNO)=0 THEN 2110 

2080 TWTM=(6* (SEC (MNO) ) ) 

2090 IF TWTM=0 THEN 2110 

2100 FOR T=l TO TWTM 

2110 GOSUB 2660 

2120 IF SEC (MNO) =0 THEN 2110 
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2130 NEXT T 

214 MNO=MNO+l 

2150 IF MNO=8 THEN 2180 

2160 IF MSGS(MNO)="" THEN 2180 

217 GOTO 2 60 

2180 MNO=l 

2190 GOTO 1110 

22 REM ERASE 

2210 CALL CHAR ( 140, EMPTY$) 

2220 FOR C=18 TO 32 

2230 CALL VCHAR (24, C, 140, 24 ) 

2240 NEXT C 

2250 REM INIT 

2260 V=3 

227 WORD=l 

2280 H=19 

2290 PTR=1 

230 GOTO 23 60 

2310 CALL CLEAR 

2320 PRINT "SORRY. CHARACTER SEQUENCES 

CANNOT BE LONGER THAN 13 CHARACTERS." 

2330 PRINT 

2340 PRINT "THE SEQUENCE ": :"'";WD$(MNO 

, WORD );"'": :"IS " ; LEN (WD$ (MNO, WORD) ) ; " 

CHARACTERS . " 

2350 GOTO 3890 

2360 FOR NL=1 TO LEN (WD$ (MNO, WORD) ) 

2 37 L(NL)=ASC (SEG$ (WD$ (MNO, WORD) , PTR, 1) 



2380 PTR=PTR+1 

23 90 NEXT NL 

2400 FOR NL=1 TO LEN (WD$ (MNO, WORD) ) 

2410 REM WRITE A WORD 

2420 CALL HCHAR (V, H, L (NL) ) 

2430 H=H+1 

244 NEXT NL 

2450 WORD=WORD+l 

2460 IF WD$ (MNO, WORD) <>"" THEN 2480 

247 RETURN 

2480 IF H<31 THEN 2560 

2490 H=19 

250 V=V+2 

2510 IF V<24 THEN 2290 

2 52 CALL CLEAR 

2530 PRINT "SORRY. 

WORDS WILL NOT FIT 



THIS COMBINATION 
ON THE SCREEN. ' 



OF 



2540 IF H<30 THEN 2560 

2550 GOTO 2590 

2560 CALL HCHAR (V, H, 32 ) 

2570 H=H+1 



109 



TEXAS INSTRUMENTS 
HOME COMPUTER 



2580 IF LEN(WD$ (MNO,WORD) ) <=32-H THEN 22 

90 

2590 H=19 

2 60 V=V+2 

2610 IF V<24 THEN 2290 

2 62 CALL CLEAR 

2630 PRINT "SORRY. THIS COMBINATION OF 

WORDS WILL NOT FIT ON THE SCREEN." 

2640 GOTO 3890 

2 650 REM TWINKLE ONE 

2 6 60 RANDOMIZE 

2670 STAR=INT ( (11*RND) +1) 

2680 ON STAR GOSUB 2740,2790,2830,2870,2 

910,2950,2990,3030,3070,3110,3150 

2 6 90 CALL HCHAR (VS, HS, 138 ) 

2700 FOR S=l TO 10 

2710 NEXT S 

272 CALL HCHAR (VS, HS, CHAR) 

2730 RETURN 

2740 VS=10 

2750 HS=9 

27 60 CHAR=13 9 

277 RETURN 

27 8 DATA 12, 11, 104 

2790 VS=8 

2800 HS=10 

2810 CHAR=9 6 

2 82 RETURN 

2830 VS=12 

2840 HS=11 

2 850 CHAR=104 

2 8 60 RETURN 

2870 VS=13 

2880 HS=8 

2 8 90 CHAR=13 9 

2 90 RETURN 

2910 VS=14 

2920 HS=6 

2930 CHAR=104 

2 94 RETURN 

2950 VS=15 

2960 HS=10 

2970 CHAR=104 

2 98 RETURN 

2990 VS=14 

3000 HS=13 

3010 CHAR=13 9 

302 RETURN 

3030 VS=16 

3040 HS=8 
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3050 CHAR=13 9 

30 60 RETURN 

3070 VS=16 

3080 HS=12 

3090 CHAR=96 

310 RETURN 

3110 VS=17 

3120 HS=5 

3130 CHAR=104 

314 RETURN 

3150 VS=17 

3160 HS=14 

3170 CHAR=96 

318 RETURN 

3190 REM MUSIC 

3200 QNOTE=375 

3210 HNOTE=750 

3220 TNOTE=1125 

3230 FNOTE=1500 

3240 VOL=10 

3250 CALL SOUND (TNOTE, 262 , VOL-5, 523, VOL) 

3260 GOSUB 2660 

3270 CALL SOUND (QNOTE, 247 , VOL-5, 494 , VOL) 

3280 GOSUB 2660 

3290 CALL SOUND (TNOTE, 294 , VOL-5, 587, VOL) 

3300 GOSUB 2660 

3310 CALL SOUND (QNOTE, 262, VOL-5, 523, VOL) 

3320 GOSUB 2660 

3330 CALL SOUND (HNO ' rE, 196, VOL-5, 392, VOL) 

3340 GOSUB 2660 

3350 CALL SOUND (FNOTE, 196, VOL-5, 392, VOL) 

3360 GOSUB 2660 

3370 CALL SOUND (TNOTE, 220 , VOL-5, 440, VOL) 

3380 GOSUB 2660 

3390 CALL SOUND (QNOTE, 196, VOL-5, 392, VOL) 

3400 GOSUB 2660 

3410 CALL SOUND (TNOTE, 233, VOL-5, 466, VOL) 

3420 GOSUB 2660 

3430 CALL SOUND (QNOTE, 220 , VOL-5, 440 , VOL) 

3440 GOSUB 2660 

3450 CALL SOUND (2*FNOTE, 147, VOL-5, 294 , VO 

L) 

3460 GOSUB 2660 

3470 CALL SOUND (TNOTE, 2 94 , VOL-5, 587, VOL) 

3480 GOSUB 2660 

3490 CALL SOUND (QNOTE, 262, VOL-5, 523, VOL) 

3500 GOSUB 2660 

3510 CALL SOUND (TNOTE, 294, VOL-5, 587, VOL) 

3520 GOSUB 2660 

3530 CALL SOUND (QNOTE, 262 , VOL-5, 523, VOL) 
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3540 GOSUB 2660 

3550 CALL SOUND (TNOTE, 196, VOL-5, 392 , VOL) 

3560 GOSUB 2660 

3570 CALL SOUND (TNOTE, 220, VOL-5, 440 , VOL) 

3580 GOSUB 2660 

3590 CALL SOUND (QNOTE, 220 , VOL-5, 440 , VOL) 

600 GOSUB 2660 

3610 CALL SOUND (HNOTE, 294, VOL-5, 587, VOL) 

3620 GOSUB 2660 

3630 CALL SOUND (HNOTE, 330 , VOL-5, 659, VOL) 

3640 GOSUB 2660 

3650 CALL SOUND (HNOTE, 262 , VOL-5, 523, VOL) 

3660 GOSUB 2660 

3670 CALL SOUND (HNOTE, 294 , VOL-5, 587, VOL) 

3680 GOSUB 2660 

3690 CALL SOUND (2*FNOTE, 262, VOL-5, 523, VO 

L) 

3700 GOSUB 2660 

3710 RETURN 

3720 REM FIT ON PAGE ? 

3730 WRD=1 

3740 LINE=1 

3750 LEFT=13 

37 60 LEFT=LEFT-LEN(WD$ (MNO,WRD) ) 

3770 IF LEFK0 THEN 3820 

37 8 WRD=WRD+1 

3790 IF WRD>40 THEN 3870 

3800 IF WD$ (MNO,WRD)="" THEN 3870 

3810 GOTO 3760 

3820 LINE=LINE+1 

3830 IF LINE>11 THEN 3850 

3840 GOTO 3750 

3850 SRC=4 

38 60 RETURN 
3870 SRC=0 
3880 GOTO 3860 
3890 PRINT 

3900 PRINT "PRESS ENTER TO RE-ENTER 

MESSAGE" ;MNO; " . " 

3 910 CALL KEY(0,RV, SV) 

3920 IF SV=0 THEN 3910 

3930 FOR 1=1 TO 40 

3940 WD$ (MNO, 1)="" 

3950 NEXT I 

3 9 60 GOTO 17 
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Speech control 

Speech with TE II cartridge 

TheTI SolidStateSpeech Synthesizer is a small add-on peripheral for theT I -99/4AHomeComputer. The 
speech unit measures less than 2Vi inches wide, and 5 inches deep. It plugs into the right-hand sideof the 
computer console. The Peripheral Expansion Box cable attaches to the right-hand side of the Speech 
Synthesizer, so that the Speech Synthesizer fits between the consoleand the PEB. 

Addition of speech bringsspicetoprogramsthataredul I and lifeless. To usespeech in a program requires 
the use of a command module that provides GROM routines that access the speech unit, or use of 
Extended Basic, Assembly, or UCSD Pascal programing languages. 

Use with other command modules 

The easiest way to usespeech within aprogramistouseTI Basic with a command module I iketheSpeech 
Editor, or theTerminal Emulator II. Each of these modules provide speech firmware support via their 
GROMs. In most cases, the user programs speech I/O in the same manner as that of a variable or a fixed 
sequential file. 

Thefollowing programs illustratesthis point. Noticethat output to the speech unit is also similar to that 
of output to the CRT screen. 

100 REM SPEECH EXAMPLE 

110 REM 

120 REM PURPOSE: TO ALLOW EXPERIMENTATI 

ON OF SPEECH PHRASES 

130 REM WITH THE TE II COMMAND MODULE 

14 REM 

150 REM REQUIRES USE OF TE II COMMAND M 

ODULE 

160 REM 

170 REM WRITTEN BY JOEL RODRIGUEZ 12/83 

180 REM ALL RIGHTS ARE RESERVED BY AUT 

HOR 

190 REM 

200 REM **** PROGRAM START **** 

210 REM INIT VARS, SCREEN, & SPEECH UNIT 

22 REM 

230 LET DEFAULTS="//43 128" 

240 LET UDEF$="//43 128" 

250 LET T$="WHAT DO YOU WANT TO SAY" 

2 60 CALL CLEAR 

270 OPEN #1 : "SPEECH", OUTPUT 

280 PRINT #1:DEFAULT$ 

2 90 REM 

300 REM OUTPUT MAIN TITLE SCREEN 
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310 


REM 


320 


GOSUB 670 


330 


REM 


340 


REM RUN DEFAULT MODE ( ? 


350 


REM 


360 


GOSUB 1340 


370 


IF D$="Y" THEN 420 


380 


GOSUB 1480 


390 


REM 


400 


REM GET SPEECH TEXT 


410 


REM 


420 


GOSUB 1210 


430 


REM 


440 


REM EXECUTE SPEECH 


450 


REM 


460 


GOSUB 1800 


470 


GOSUB 2460 


480 


IF D$="Y" THEN 510 


490 


GOSUB 1920 


500 


GOTO 520 


510 


PRINT #1:T$ 


520 


GOSUB 2460 


530 


REM 


540 


REM END PROGRAM ACTION 


550 


REM 


560 


GOSUB 2170 


570 


IF A$="Y" THEN 470 


580 


IF A$="C" THEN 420 


590 


IF A$="M" THEN 360 


600 


END 


610 


REM 


620 


REM SUBROUTINES ****** 


630 


REM 


640 


REM 


650 


REM INSTRUCTIONS 



6 60 REM 

67 CALL SCREEN (4) 

680 PRINT "SPEECH PITCH & SLOPE TESTER" 

690 PRINT #1: "SPEECH PITCH AND _SLOPE _T 

ESTER" 

700 PRINT " 

710 PRINT "DEFAULT MODE ALLOWS REPEATED 

EXECUTION OF THE USER SET" 

720 PRINT " PITCH & SLOPE PARAMETERS." 

730 PRINT " 

740 PRINT "NON-DEFAULT MODE ALLOWS RE-" 

750 PRINT " PEATED EXECUTION OF VAR-" 

7 60 PRINT " IABLE PITCH & SLOPE PARMS . " 
770 PRINT " 

780 FOR DELAY=1 TO 500 
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7 90 NEXT DELAY 
800 RETURN 

810 REM 

82 REM CHANGE DEFAULT 

830 REM 

840 PRINT " 

850 PRINT "THE DEFAULT PROGRAM PITCH & 

SLOPE PARMS ARE ://43 128." 

8 60 PRINT " 

87 PRINT "CURRENT USER DEFAULT PARMS 

ARE :"&UDEF$&"." 

880 PRINT " 

890 IF E$o"Y" THEN 920 

90 PRINT #1: "CHANGE DEFAULT" 

910 GOSUB 2520 

920 INPUT "CHANGE DEFAULT (Y/N) - ":A$ 

930 IF A$="Y" THEN 950 

940 GOTO 1070 

950 IF E$o"Y" THEN 970 

960 PRINT #1:" ENTER NEW DEFAULT" 

970 INPUT "ENTER NEW DEFAULT (//XX YYY) 

" :UDEF$ 
980 PV$=SEG$ (UDEF$,3,2) 
990 SV$=SEG$ (UDEF$, 6,3) 
1000 IF PV$<" 0" THEN 1050 
1010 IF PV$>"63" THEN 1050 
1020 IF SVS<" 0" THEN 1050 
1030 IF SV$>"255" THEN 1050 
1040 GOTO 1070 
1050 GOSUB 1110 
10 60 GOTO 9 60 
107 RETURN 
1080 REM 

10 90 REM OUTPUT VALID PARMS 
1100 REM 
1110 PRINT " 

1120 IF E$<>"Y" THEN 1140 
1130 PRINT #1: "INVALID" 

1140 PRINT "XX IS PITCH, RANGE 0-63." 
1150 PRINT "YYY IS SLOPE, RANGE 0-255.' 
1160 PRINT " 
117 RETURN 
1180 REM 

1190 REM INPUT SPEECH TEXT 
12 REM 
1210 PRINT " 

1220 PRINT "CURRENT SPEECH TEXT IS :" 
1230 PRINT " 
1240 PRINT T$ 
1250 PRINT " 
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1260 IF E$o"Y" THEN 1280 

1270 PRINT #1: "ENTER SPEECH TEXT" 

1280 PRINT "ENTER SPEECH TEXT" 

1290 INPUT T$ 

130 RETURN 

1310 REM 

132 REM RUN DEFAULT MODE 

1330 REM 

1340 CALL SCREEN (8) 

1350 PRINT " 

1360 INPUT "ECHO PROMPTS TO SPEECH UNIT 

(Y/N) - ":E$ 

1370 PRINT " 

1380 IF E$o"Y" THEN 1410 

1390 PRINT #1: "DEFAULT MODE" 

1400 GOSUB 2520 

1410 INPUT "DEFAULT MODE (Y/N) - ":D$ 

1420 IF D$="N" THEN 1440 

1430 GOSUB 840 

144 RETURN 

1450 REM 

14 60 REM PROMPT VARIABLE PARMS 

147 REM 

1480 PRINT " 

1490 IF E$<>"Y" THEN 1510 

1500 PRINT #1: "ENTER PITCH RANGE" 

1510 PRINT "ENTER PITCH RANGE" 

1520 PRINT " 

1530 IF E$o"Y" THEN 1550 

1540 PRINT #1: "STARTING VALUE IS" 

1550 INPUT "STARTING VALUE (0-63) : ":PS 

1560 IF E$o"Y" THEN 1580 

1570 PRINT #1: "ENDING VALUE IS" 

1580 INPUT "ENDING VALUE (0-63) : ":PE 

1590 IF E$o"Y" THEN 1610 

1600 PRINT #1 : "INCREMENT BY" 

1610 INPUT "INCREMENT VALUE : ":PI 

1620 PRINT " 

1630 IF E$o"Y" THEN 1650 

1640 PRINT #1: "ENTER SLOPE RANGE" 

1650 PRINT "ENTER SLOPE RANGE" 

1660 PRINT " 

1670 IF E$o"Y" THEN 1690 

1680 PRINT #1: "STARTING VALUE IS" 

1690 INPUT "STARTING VALUE (0-255) : ":SS 

1700 IF E$<>"Y" THEN 1720 

1710 PRINT #1: "ENDING VALUE IS" 

1720 INPUT "ENDING VALUE (0,255) : " : SE 

1730 IF E$<>"Y" THEN 1750 

1740 PRINT #1 : "INCREMENT VALUE BY" 
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1750 INPUT "INCREMENT VALUE : ":SI 

17 60 RETURN 

177 REM 

17 8 REM OUTPUT START 

17 90 REM 

1800 CALL SCREEN (12) 

1810 PRINT " 

1820 PRINT "STARTING SPEECH TEST RUN" 

1830 IF E$o"Y" THEN 1850 

1840 PRINT #1: "STARTING SPEECH TEST RUN" 

1850 PRINT #1:UDEF$ 

1860 PRINT " 

1870 GOSUB 2460 

1880 RETURN 

18 90 REM 

190 REM EXECUTE PARMS 

1910 REM 

1920 FOR PITCH=PS TO PE STEP PI 

1930 FOR SLOPE=SS TO SE STEP SI 

1940 LET P$="" 

1950 IF PITCH>9 THEN 1970 

1960 P$="0" 

1970 P$=P$&STR$ (PITCH) &" " 

1980 LET S$="" 

1990 IF SLOPE>99 THEN 2010 

2000 S$=S$&"0" 

2010 IF SLOPE>9 THEN 2030 

2020 S$=S$00" 

2030 S$=S$&STR$ (SLOPE) 

2040 C$="//"&P$&S$ 

2050 PRINT #1:C$ 

2060 PRINT " 

2070 PRINT "PITCH ="&P$&" SLOPE ="&S$," 

CONTROL ="&C$ 

2080 PRINT #1:T$ 

2 90 CALL KEY(0,K, S) 

2100 IF S<>0 THEN 2130 

2110 NEXT SLOPE 

2120 NEXT PITCH 

2130 RETURN 

214 REM 

2150 REM END ACTION 

2160 REM 

217 CALL SCREEN (4) 

2180 PRINT " 

2190 IF E$o"Y" THEN 2230 

2200 PRINT #1:DEFAULT$ 

2210 PRINT #1:"RUN AGAIN" 

2220 GOSUB 2520 

2230 INPUT "RUN AGAIN (Y/N) - ":A$ 
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2240 IF A$="Y" THEN 2420 

2250 PRINT " 

2260 IF E$o"Y" THEN 2290 

2270 PRINT #1: "CHANGE SPEECH TEXT" 

2280 GOSUB 2520 

2290 INPUT "CHANGE SPEECH TEXT (Y/N) 

A$ 

2300 IF A$o"Y" THEN 2330 

2310 A$="C" 

2320 GOTO 2420 

2330 PRINT " 

2340 IF E$o"Y" THEN 2370 

2350 PRINT #1: "CHANGE MODE" 

2360 GOSUB 2520 

2370 INPUT "CHANGE MODE (Y/N) - ":A$ 

2380 IF A$o"Y" THEN 2410 

2390 A$="M" 

24 GOTO 242 

2410 STOP 

242 RETURN 

2430 REM 

244 REM DELAY ROUTINE 

2450 REM 

2460 FOR DELAY=1 TO 250 

247 NEXT DELAY 

24 8 RETURN 

24 90 REM 

2500 REM MISC SPEECH PROMPTS 

2510 REM 

2520 PRINT #1:"YES. OR. NO" 

2 530 RETURN 

2540 END 
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The program was conceived to allow experimental output to thespeech unit, and also to provide program 
development capabilities for thespeech programmer. First a brief description of thecodeis in order. 

Lines 100-320 : Program start text, and program initialization code. 

Lines 330-600 : Code to select mode and parameters, input speech text, speak text, and end program 
action. 

Lines 640-800: Titlescreen menu. 

Lines 810-1070: Code to set execution mode. 

Lines 1080-1300: Messages. 

Lines 1310-1760: Mode prompts. 

Lines 1770-1880: Starting execution message. 

Lines 1890-2130: Variable execution control. 

Lines 2140-2420: End action prompts. 

Lines 2430-2530: Misc subroutines. 

Using the program 

As well as experimenting with speech itself, the program may be used for determining which pitch and 
slope parameters are requi red to effect the voice qual ity of the resulti ng speech. T he tonal qual ity may 
be varied from hi tolo, or set at a whisper. The lower pitch values producea high mouse-like voice while 
the higher pitch values producea deep mascul ine voice. Theslope may be varied to somedegreeto shape 
the resulting speech. The following two equations govern the recommended si ope value for a particular 
pitch, and a range of valid si opes for a particular pitch. Exceeding the valid range of slope will garblethe 
speech; with some interesting and some not so interesting results. 

RECOMMENDED: SLOPE = 32 * I NT(.l* PITCH) 

RANGE: SLOPE < (PITCH-1) * 16or 

SLOPE < (63-PITCH)*16 

The program may also be used to vary the stress points of a sentence, and to add pauses and delays. A 
sentence may have it's pr i mary stress poi nt word preceded by the ~ symbol . Secondary stress poi nts may 
be i ndicated with the_ symbol precedi ng the word. N otethat a sentence may haveonly onepri mary stress 
point, but can have multiple secondary stress points. To use these inflection symbols just type them in 
preceding the word in the sentence where you would I ike to change the stress poi nts. 
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Pauses may be implemented with the", "or ", " characters appended to the appropriate word. The". " 
sequence will cause a .45 second delay while the "/'sequence will cause a .1 second delay after the word 
is spoken. Each of these symbols consist of two characters. The comma or period foil owed byaspace. 

In addition, the contour of the word may be altered to either rise or fall. The contour refers only to the 
stress point of thesentence and may only be used on words that are preceded by an inflection symbol (~ 
or _) The ".'"and "?" symbols both specify a rising contour, while the symbols",", "!", ":", and ";"all specify 
falling contours! Confused? YOU BET! 

So what does all this mean to you? Well, back to the program. Usethe program to experiment. Type in 
a sentence and listen. Change thesentence. Listen again. Soon you will be ableto determine what works 
and what doesnt work. 

To use the program 

1. InserttheTE II Command Moduleand bring upTI Basic. 

2. Load the program. 

3. Run the program. 

4. The program will clear the screen and, if the speech unit is attached, will speak the title of the 
program. 

TheTitlemenu appears as follows: 

SPEECH PITCH & SLOPE TESTER 

DEFAULT MODE ALLOWS REPEATED 
EXECUTION OF THE USER SET PARAMETERS 

NON-DEFAULT MODE ALLOWS RE- 
PEATED EXECUTION OF VAR-" 
IABLE PITCH & SLOPE PARMS 

5. The program will prompt for initial values and desired mode of operation, as follows 

ECHO PROMPTS TO SPEECH UNIT (Y/N) - 

If you want the program to speak the prompts then answer Y, else prompts appear on the 
computer monitor only. 

DEFAULT MODE (Y/N) - 

If you wish to use the default mode of the program, then enter Y, else enter a N to change the 
program mode of operation. 
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If you choose the default mode the following sequence of prompts appears: 

THE DEFAULT PROGRAM PITCH & SLOPE PARMS ARE ://43 128 
CURRENT USER DEFAULT PARMS ARE : //XX YYY 

CHANGE DEFAULT (Y/N) - 

If you wish to set the default pitch and slope parameters, then enter Y, else enter N to use the 
default, or last setting entered. 

If you enter a Y, then the following prompt appears: 

ENTER NEW DEFAULT (//XX YYY) : 

Enter your pitch and slope setting. If you i ncorrectly enter the values, the program will respond 
with the foil owing messages: 

XX IS PITCH, RANGE 0-63: 
YYY IS SLOPE, RANGE 0-255. 

You are then re-prompted for the user default pitch and slope parameters. 

If you entered N to the default mode prompt, then the following sequence of prompts appears: 

ENTER PITCH RANGE 
STARTING VALUE (0-63) : 
ENDING VALUE (0-63) : 
INCREMENT VALUE : 

ENTER SLOPE RANGE 
STARTING VALUE (0-255) : 
ENDING VALUE (0,255) : 
INCREMENT VALUE: 

The program then displays the last speech text data input. 

CURRENT SPEECH TEXT IS : 
ENTER SPEECH TEXT 

E nter the text as desi red and press the ENTER key. T he program will respond by di spl ayi ng the 
following prompt: 

STARTING SPEECH TEST RUN 

6. The program executes. 
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7. Theprogram prompts whether or not to continuein thecurrent mode. Answer Y to reexecutethe 

program in thecurrent mode. Answering anything elseresultsin the opportunity to change the 
mode of operation or exit the program. 
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1. 


SWAP 


2. 


NEW 


3. 


SPEAK 



Phonetic Speech Editor 

Are you trying to get your speech unit to pronounce words that are understandable, while mis-spelling 
and patchingyourvocabularytogether?Ti red of doing endless searchesfor that particular allophonethat 
would solve your pronunciation problems? Here is a program to help you along in your struggle with the 
Terminal Emulator II cartridge. 

The speech utility listed below allows a programmer to exchange al I ophones in a given phrase in order 
to achieve proper pronunciation. Phrases can be made phonetically correct without having to mis-spell 
any words. Once a proper set of allophones are selected they can be incorporated into your programs. 

You may enter up to one line of text at a time, andean do three operations on the phrase. 

Choose and swap al lophone from the alternates I ist. 
Clear and enter a new phrase. 
Speak customized phrase. 

The phrase you enter appears vertically on thescreen with thecorrespondingal lophone numbers beside 
each letter. The cursor can be moved up and down the phrase until the desired letter ischosen. Atthis 
point pressing the SWAP command will list all the words with similar sounding allophones. The chosen 
letter will appear capitalized within each word. 

Example: The letter "S" as in Ship, or "S" as in talks. 

Thecursor may now moved down thealternates I ist until anappropriatesubstitution letter for thephrase 
is found. Pressing ENTER then pi aces the chosen al lophone into your original phrase. The phrase now 
may bespoken with theSPEAK command. When the phrase is correct, copy down theallophonenumbers 
next to the phrase for use in your programs. 

The foil owing shows how to use the correct al lophone numbers in your program. 

Al lophone numbers for the word HAPPY are: 119, 26, 109, 25 

You would: 

OPEN #1 : "ALPHON", INTERNAL 

Then: 

PRINT #1 :CHRS (119) &CHR$ (26) &CHR$ (109) &CHR$ (25) 

Or set: 

A$=CHR$ (119) &CHRS (26) &CHR$ (109) &CHR$ (25) 
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Then: 

PRINT #1:A$ 

Note pages 37 through 40 in the booklet that comes with theTE II module. Especially, the second 
program on page 39. This sections explains the use of additional numbers at the beginning of your 
allophone numbers that effect the final sound of your phrase. Also see page 207 of Appendix M in the 
Extended Basic manual, line numbers 530 on down, for an exampleon how to speak a given allophone 
string. 

10 REM CRACKING THE 9 9/4A 

2 ALLOPHONE EDITOR 

30 BRUCE WYCHE 02/08/84 

100 OPTION BASE 1 

110 DIM A$ (125) ,ALO(125) ,B(22) ,M(26) ,0(2 

6) 

12 CALL CLEAR 

130 CALL SCREEN (2) 

140 TRUE=-1 

150 OPEN #1 : "SPEECH", OUTPUT 

160 OPEN #2 : "ALPHON", INTERNAL 

17 SPEAK=TRUE 

180 M$="TYPE PHRASE, PRES 

S ENTER 12 3 

NEW SPEAK SWAP" 
190 PRINT " PHONETIC SPEECH EDITOR":: 



200 PRINT " LOADING. .PLEASE WAIT.." 

210 CALL SCREEN (15) 

22 RESTORE 

230 FOR 1=1 TO 121 STEP 5 

240 READ A$ (I) ,A$ (1 + 1) ,A$ (1 + 2) ,A$ (1 + 3) ,A 

$(1+4) 

250 NEXT I 

260 O(l)=0 

270 J=0 

280 RESTORE 192 

2 90 FOR LETTER=1 TO 2 6 

30 READ M (LETTER) 

310 FOR 1=1 TO M(LETTER) 

320 J=J+1 

330 READ ALO(J) 

340 NEXT I 

350 IF LETTER=1 THEN 370 

360 O (LETTER) =0(LETTER-1) +M(LETTER-1) 

370 NEXT LETTER 

38 REM ! ! ! MAIN LOOP ! ! ! 

390 GOSUB 1090 

400 GOSUB 540 
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410 IF ( (KK<49) + (KK>51) ) <0 THEN 400 

420 ON KK-48 GOSUB 1110,1650,1180 

430 GOTO 400 

440 REM DISPLAY M$ @(R,C) 

450 C=CL 

460 FOR CC=1 TO LEN(M$) 

470 CALL HCHAR(RW,C+CC-1,ASC (SEG$ (M$,CC, 

1))) 

480 NEXT CC 

490 IF SPEAKOTRUE THEN 520 

500 PRINT #1:M$ 

510 SPEAK=0 

52 RETURN 

530 REM KEY SCAN W/CURSOR 

54 CALL KEY(5,KK, SS) 

55 CALL HCHAR(ROW,COL, 30) 
560 CALL HCHAR(ROW,COL, 32) 
570 IF SS=0 THEN 540 

58 CALL SOUND (90, 1000, 1) 

5 90 RETURN 

60 REM GET PHRASE SUBR 

610 X$="" 

620 PRINT #1: "ENTER FRAYZ . PLEEZ." 

630 CNT=1 

64 CALL GCHAR(ROW,COL,GC) 

650 CALL KEY(5,KK, SS) 

6 60 CALL HCHAR(ROW,COL, 30) 
670 CALL HCHAR(ROW,COL,GC) 
680 CNT=CNT+1 

690 IF CNT>250 THEN 620 

700 IF SS=0 THEN 650 

710 IF KK>31 THEN 760 

720 IF KK=13 THEN 800 

730 COL=COL- (COL>2) * (KK=8) + (KK=9) * (COLO 

2) 

740 X$ = SEG$ (X$, l,COL) 

750 GOTO 650 

7 60 CALL HCHAR(ROW,COL,KK) 
770 X$=X$&CHR$ (KK) 

780 COL=COL- (COL<32) 

790 GOTO 650 

800 CALL HCHAR(1, 1, 32, 704) 

810 PRINT #1:X$ 

820 INPUT #2:N$ 

830 NL=LEN(N$) 

840 IF (NL-3)<23 THEN 870 

850 NL=22 

860 N$=SEG$ (N$, 1,NL) 

870 J=l 

880 FOR 1=4 TO NL 
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890 V=ASC(SEG$ (N$,I,1) ) 

90 B(J)=V 

910 J=J+1 

920 M$=STR$ (V) 

930 RW=I-3 

940 CL=3 

950 GOSUB 440 

960 M$=A$ (V) 

970 CL=7 

980 GOSUB 440 

990 NEXT I 

1000 RETURN 

1010 M$="UP DOWN ENTER" 

102 RW=21 

1030 CL=2 

1040 GOSUB 440 

1050 RETURN 

1060 M$=" ....WORKING...." 

1070 GOSUB 440 

1080 RETURN 

10 90 CALL CLEAR 

1100 PRINT M$; 

1110 CALL HCHAR(1, 1, 32, 640) 

112 SPEAK=TRUE 

1130 ROW=2 

1140 COL=2 

1150 REM GET PHRASE 

1160 GOSUB 610 

117 RETURN 

1180 ROW=l 

1190 COL=2 

1200 GOSUB 1010 

1210 GOSUB 540 

1220 IF KK=13 THEN 1250 

1230 ROW=ROW- (ROW>l) * (KK=11) + (ROW< (NL-3) 

) * (KK=10) 

1240 GOTO 1210 

1250 GOSUB 1060 

12 60 REM GET LETTER FROM ALO 
1270 FF=0 

1280 FOR JJ=1 TO LEN(A$ (B (ROW) ) ) 

1290 Z$=SEG$ (A$ (B(ROW) ) , JJ, 1) 

1300 IF Z$<="Z" THEN 1320 

1310 NEXT JJ 

1320 REM PRINT ALO-MATCHES 

1330 IF Z$=OS$ THEN 1480 

1340 LETTER=ASC (Z$) -64 

1350 FOR 1=1 TO 21 

13 60 CALL HCHAR(I, 18, 32, 14) 
1370 NEXT I 
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1380 FOR RW=1 TO M (LETTER) 

1390 ZZ=ALO (0 (LETTER) +RW) 

1400 M$=STR$ (ZZ) 

1410 CL=18 

1420 GOSUB 440 

1430 M$=A$ (ZZ) 

1440 CL=22 

1450 GOSUB 440 

14 60 NEXT RW 

1470 OS$=Z$ 

14 8 N=ROW 

1490 GOSUB 1010 

150 ROW=l 

1510 COL=17 

1520 GOSUB 1720 

1530 B(N)=ZZ 

1540 M$=STR$ (ZZ) 

1550 RW=N 

1560 CL=3 

1570 CALL HCHAR(RW,CL, 32, 14) 

1580 GOSUB 440 

1590 M$=A$ (ZZ) 

1600 CL=7 

1610 GOSUB 440 

162 ROW=N 

1630 COL=2 

164 RETURN 

1650 REM SPEAK PHRASE 

1660 B$=CHR$ (250) &CHR$ (255) &CHR$ (NL-3) 

1670 FOR 1=1 TO NL-3 

1680 B$=B$&CHR$ (B(I) ) 

1690 NEXT I 

1700 PRINT #2:B$ 

1710 RETURN 

172 REM SUB SWAP ALO 

1730 GOSUB 540 

1740 IF KK=13 THEN 1770 

1750 ROW=ROW- (ROW>l) * (KK=11) + (ROW<M(LETT 

ER) ) * (KK=10) 

1760 GOTO 1730 

1770 ZZ=ALO (O (LETTER) +ROW) 

17 8 RETURN 

1790 DATA Addition, Annuity, deltA 

1800 DATA ON, Autonomy, anonimiity 

1810 DATA Eliminate, Enough, contEXt, ancIE 

nt , westERn, synthEsIs 

1820 DATA Inane, tOOk, donation, annUal, Uni 

que, Above, instrument, Underneath 

1830 DATA rosEs,basemEnt, seekEr, ratio, fu 

nnY , hAt , hot , hE I ght , cARt , hOUse , sOUght 
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1840 DATA hEAt,pIERce, sEt, thERapy, tAke,h 

Urt, Issue, choice, cOOk,pOORly 

1850 DATA hORse,bOAt, shOOt, hUt, bOOt, hAd, 

Odd, hide 

1860 DATA cARd, lOUd, sAw, sEEd, hEEl, hEAR, s 

Aid, thERE, dAY, hEARd, hid, hill, thINk, bOY 

1870 DATA cOUld, pOOR, CORE, 10W, shOE,mUd, s 

kULL, pULL, mOOn, Like, bowL, weLL, May 

1880 DATA huM, Nice, saNe, thiNk, thiNG, Real 

, Witch, WHich, You, Bad, daB, Dig, biD, Give 

1890 DATA Go,baG, Jug, buDGE, THis, cloTHE, V 

ine, aliVE, Zoo, doeS, aZure, beiGE, sKate, Cas 

e 

1900 DATA maKe, Key, Cough, sPace, Pie, naP, s 

Take, Tie, laTe, CHurch, Fat, lauGH, Hit, Home 

1910 DATA Hut, Seem, miSS, SHine, waSH, THing 

, wiTH 

1920 DATA 9,1,3,18,26,36,47,52,56,58 

1930 DATA 2, 86, 87 

1940 DATA 3,104,107,114 

1950 DATA 2, 88, 89 

1960 DATA 18,7,8,9,10,11,12,21,22,23,32, 

33,34,35,53,54,55,57,59 

1970 DATA 1, 115 

1980 DATA 5,90,91,92,94,102 

19 90 DATA 4,116,117,118,119 

2000 DATA 6,13,28,38,49,60,61 

2010 DATA 1, 93 

2 02 DATA 3,103,105,106 

2 030 DATA 4,70,73,74,75 

2 04 DATA 2, 7 6, 7 7 

2050 DATA 5,62,78,79,80,81 

2060 DATA 24,4,6,14,15,24,27,30,31,39,40 

,41, 42, 43, 44, 46, 48, 51, 63, 64, 65, 66, 67, 68, 

72 

2 07 DATA 3,108,109,110 

2080 DATA 

2090 DATA 3, 29, 50, 82 

2100 DATA 5,100,120,121,122,123 

2110 DATA 7,95,96,111,112,113,124,125 

2120 DATA 9,5,16,17,19,20,37,45,69,71 

2130 DATA 2, 97, 98 

214 DATA 2, 83, 84 

2150 DATA 

2160 DATA 3, 2, 2 5, 85 

217 DATA 2,99,101 



129 



TEXAS INSTRUMENTS 
HOME COMPUTER 



Utility 
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Extended Basic 

Great Graphics Generator 

Although computers leave a I otto be desired in lending 
creativetalent, they can helpmakeyour job a lot easier. 
This program allows you to create graphic images dot 
by dot (up to 32 x 32 pixels) and then prints out a 
hexadecimal code equivalent to use for your program 
graphics. From herethecomputer asks a few questions, 
invokes a few magic words, and presto! The image 
appears actual size, in color, and with motion. When the 
images are drawn to form, the code then may be saved 
for future reference or copied into your programs. 

The computer first asks which of four available 

windows you would like to fill in. Keys one through 

eight move the cursor around a magnified version of a 

16 xl6 pixel area. In effect you are redefining four 

8 x 8 pixel characters in one window. Having positioned the cursor over the desired position, keys nine 

and zero turn the dot on or off. This way you can experiment as you go or can copy artwork from a 

pre-drawn image from graph paper. 

I suggest you try the program as you read the description. 

Sincetherearefour windows that may be drawn and put together, you havethecapability of redefining 
16 characters, drawing a 32 x 32 pixel area.Onewindowisequivalenttoonesprite. In effect this program 
puts four sprites together in order to display all four windows. 

From the menu you may choose to: 




1. DRAW a chosen window. 

2. SEE all windows displayed. 

3. Display hex CODES for all windows. 

4. EDIT a chosen window. 

Draw 

When a window to draw is selected, the computer clears that window's memory. Be careful not to select 
a wi ndow that has al ready been defi ned and has not been saved. A smal I displ ay on the right wi 1 1 show the 
numbers of al I U SE D wi ndows that have been previously defi ned. Selecti ng a N E W wi ndow and pressi ng 
ENTER immediately thereafter clears the chosen windows memory and deletes it from the USED 
WIN DOW display. 
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Keys onethrough eight movethecursor around the window whilekeysnineandzeroturnthedot or pixel 
on and off. When finished, press ENTER and the computer will calculate and display the hex code 
equivalent of the design. The four hexadecimal strings that will appear on the screen correspond to the 
image in the same order that hex codes correspond to sprites. 

Char. #1 — Upper left corner 
Char. #2 — Lower left corner 
Char. #3 — U pper right corner 
Char. #4 — Lower right corner 

Also, I ike the four characters that make up one window, the four windows also fit together in the same 
order. When codi ng a compositei mageusi ngtwoor morewi ndows, thewi ndow numbers must beassigned 
to your image corresponding to the order shown below so that the pieces of your composite image will 
appear on the screen in their proper positions. This is theorder in which the program displays windows 
on the screen, though your own programs may display graphics in any way desired. 



Sprite #1. Upper left corner. (Window 1) 
Sprite #2. Lower left corner. (Wi ndow 2) 
Sprite #3. Upper right corner. (Window 3) 
Sprite #4. Lower right corner. (Window 4) 



Edit 



You may EDIT any window. T he computer will redisplay any previously drawn window on the screen so 
that it may be modified without redrawing the entire image. After modifying the window, ENTER is 
pressed to recalculate the new hex code. 

See 

Selecti ng theSE E option displ ays al I four wi ndows i n one compositei mage. When thescreen appears, you 
are prompted to enter the magnification, X and Y values for motion, sprite image col or and screen color 
(use numeric values). All colors except transparent are avail able. Calling a black screen will change the 
color of the characters so that the information on thescreen is readable. All parameters may be changed 
as many times as desired in order to duplicate the appearance of the images for a program. 

Code 

WhentheCODE option is selected, all hex codes aredisplayedandtheword AVAILABLE is displayed for 
each empty window. Remember to copy down any codes before you clear or alter a window. 
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Tips 

Thereareseveraloptionsfordisplayinggraphics. Motionless graphics may bedisplayed by redefining the 
existing character sets usingCALL CHAR. TheCALL H CHAR or CAL L VCHAR statement may be used 
to display the redefined characters. You can then piece the image together by placing the redefined 
characters onto thescreen i n thedesi red rows and col umns. I f you aregoi ng to have pri nted messages on 
the screen with your graphics, remember not to redefine the upper or lowercase alphabet set to be used. 

The second option displays a larger imageusingtheCALL SPRITE statement. This allows you to display 
an image occupying a 16 xl6 pixel area.TheCALL SPRITE statement lets you manipulatethe motion, 
color and position of thespritein one statement. One window isthelargest image a sprite may display 
(16 x 16 pixels). 

Code description 

TheCALL LOAD(-31806,16) in Iinel30 may benewto you. ThisdisablestheQUIT key so that you cannot 
quit the program accidently. 

The information for a window, when input by a user, isstored in thethree dimensional array G(X,R,C), 
where X equals the number of a window (one through four), and R and C are each 16 elements 
corresponding to the 16 rows and columns in a window (same as pixels in a sprite). 

The movement of thecursor around a window in the program reflectsthe movement around thel6 x 16 
elements of the array. If a dot is turned on in the window, a value of "1" isstored in that position of the 
array. If a dot is turned off a value of "0" is stored. It is also from these ones and zeros that the edit 
function of the program redisplays a previously drawn window. It scans the array row by row displaying 
a corresponding dot on thescreen for each value of one it encounters in the array. 

Lines 240-310 display the menu command line. Lines 320-350 allow you to choose a window. Lines 
410-450 flash thecursor and display a local dot whether it ison or off, and Lines 480-570 arethecode for 
moving the cursor around the screen in theeight avail able directions. 

Lines 590-690 create the cursor wrap around feature. This cuts time when moving from one side of the 
wi ndow to theother. Lines 620 and 630, although somewhat misplaced, arethecode which assign avalue 
of one or zero to the array G(X,R,C). 

Lines 710-790 keep track of and display which windows are used by looking at the value of A$(l ) which 
contai ns the hex code equivalent for thecorresponding windows (64 characters long). T he RPT$ code in 
li ne760 checks to see if thestringvariableA$(l)isgreater than thestringvalueofRPT$("0",64), a string 
of 64 zeros. I f A$(l ) is greater than RPT$("0",64) then the wi ndow has been previ ously used and contai ns 
hex code. 
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Lines 1490-1580 loop through all the positions of the array and create the dual function of clearing the 
values in a given array, or of redisplaying a window for the edit function depending on the command 
chosen. Under the NEW window option I ine 1500 checks to see if A$(X)<="0". This says that thechosen 
window is already empty and causesthecl ear window code(whichfi I Isthearray with zeros) to be skipped, 
thus saving time. This code is also skipped if QQ$="E". This says you are in the EDIT mode and enables 
line 1540 to reprint an image from the pre-drawn windows array. 

Row by row, the code in lines 1640-1710 convert the 256 elements in the array G(X,R,C) to a windows 
hexadecimal equivalent — a string 64 characters long. It is this converted code which is used by the CALL 
SPRITE statements in lines 1190- 1220todisplay the window under theSEE option. 

110 REM GRAPHICS GENERATOR 

110 REM CRACKING THE 9 9/4A 

120 CALL INIT 

130 CALL LOAD (-31806, 16) 

14 CALL LOAD (-3187 8, 4) 

150 DIM G(4, 16, 16) ,C$ (16) 

160 CALL CLEAR :: CALL SCREEN(6):: GOSUB 810 

17 CALL COLOR (12, 5, 16, 9, 6,16,10,2,16) 

180 CALL CHAR(124, "03030303030303FF") 

190 CALL CHAR(125, "FFFF8080808080FF") 

200 CALL CHAR(101, " 80808080808080FF" ) 

210 CALL CHAR(104, "FF818181818181FF") 

220 CALL CHAR(105, "FFFFFFFFFFFFFFFF") 

230 REM MENU 

240 DISPLAY AT (7 , 10 ) : "MENU" : , : "N=DRAW WI 

NDOW" : , : "E=EDIT OLD WINDOW" :,: "S=SEE WIN 

DOWS" : , : "C=SEE WINDOW CODES" 

250 DISPLAY AT (23, 1 ) : "N=NEW S=SEE C=CO 

DE E=EDIT":" >" 

260 ACCEPT AT (24, 4) VALIDATE ("SCNE") SIZE ( 

1)BEEP:QQ$ 

270 ON POS ("SCNE",QQ$, DGOSUB 1030,1390, 

300,300 

280 GOSUB 710 

290 GOTO 250 

300 GOSUB 880 

310 R=l : : C=l 

320 DISPLAY AT (21 , 3) : "WHICH WINDOW? 1-4" 

330 CALL KEY(0,X, S) 

340 CALL SOUND (1,200, 8) 

350 IF X>48 AND X<53 THEN 360 ELSE 330 

360 X=X-48 

370 DISPLAY AT ( 13, 20 ) : "<WINDOW" ; X 

380 GOSUB 1490 

390 DISPLAY AT (21 , 1 ) : " " : "KEY : (l-4)=MOVE 

(9, 0)=ON/OFF" 

400 REM MOVE CURSOR 

410 CALL KEY(0,K, S) 
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420 CALL HCHAR(R+l,C+3, 104) 

430 IF G(X,R,C)=1 THEN CALL HCHAR(R+1,C+ 

3,105)ELSE CALL HCHAR (R+l, C+3, 101 ) 

440 IF S=0 THEN 410 

450 IF K=13 THEN 460 ELSE 480 

460 GOSUB 1600 

47 GOTO 6 90 

480 IF K>=48 AND K<=57 THEN 490 ELSE 410 

490 ON K-47 GOTO 630,520,530,500,510,540 

,550,560,570, 620 



500 C=C-1 

510 C=C+1 

520 R=R+1 

530 R=R-1 

540 C=C+1 

550 C=C+1 

560 C=C-1 

570 C=C-1 



GOTO 590 

GOTO 590 

: GOTO 590 

GOTO 590 



GOTO 590 
GOTO 590 
GOTO 590 



R=R+1 

R=R-1 

R=R+1 

R=R-1 

58 REM CURSOR WRAP AROUND 
590 IF R=0 OR R=17 THEN 650 
600 IF C=0 OR C=17 THEN 670 
610 GOTO 410 

620 G(X,R,C)=1 :: GOTO 640 
630 G(X,R,C)=0 
640 GOTO 410 

650 IF R=0 THEN R=16 ELSE R=l 
6 60 GOTO 410 

670 IF C=0 THEN C=16 ELSE C=l 
68 GOTO 410 

6 90 RETURN 

700 REM USED WINDOWS DISPLAY 

710 V$="" 

720 DISPLAY AT (4 , 23) : "USED" 

730 CALL HCHAR(5,23, 95, 7) 

740 CALL HCHAR(7,23, 95, 7) 

750 FOR 1=1 TO 4 

760 IF A$ (I) >RPT$ ("0", 64) THEN V$=V$&STR$ 

( I ) & " " 

770 NEXT I 

780 DISPLAY AT(6,21):V$ 

7 90 RETURN 

800 REM LOAD COLORS 

810 FOR 1=1 TO 16 

820 READ C$ (I) 

830 NEXT I 

84 RETURN 

850 DATA CLEAR, BLACK, M. GREEN, L. GREEN, D 

. BLUE,L. BLUE,D. RED, CYAN, M. RED 

8 60 DATA L. RED,D. YELLOW, L. YELLOW, D . G 
REEN, MAGENTA, GRAY, WHITE 
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87 REM GRAPH SUB 

880 CALL CLEAR 

890 N$="1234567812345678" 

900 FOR R=l TO 16 

910 DISPLAY AT (1+R, 1) : SEG$ (N$,R, 1) 

920 DISPLAY AT ( 1+R, 18 ) : SEG$ (N$, R, 1 ) 

930 CALL HCHAR(R+1, 4, 101, 16) 

940 NEXT R 

950 FOR 1=1 TO 2 

960 DISPLAY AT ( 1+D, 2 ):" 1234567812345678 " 

970 D=17 

980 NEXT I 

990 D=0 

1000 GOSUB 710 

1010 RETURN 

1020 REM SEE GRAPHICS 

1030 CALL CLEAR 

1040 PRINT : "MAGNIFY (3 OR 4 ) " : "MOTION (-9 

9 TO 99)":" X AXIS":" Y AXIS" : "SPRITE 

COLOR 2-16" : "SCREEN COLOR 2-16" 

1050 ACCEPT AT (18, 19) VALIDATE ("34") SIZE ( 

1)BEEP:M 

1060 IF M<3 OR M>4 THEN M=4 

1070 ACCEPT AT (20, 10) VALIDATE (NUMERIC) SI 

ZE (3)BEEP:M1 

1080 IF MK-99 OR Ml>99 THEN 1070 

1090 ACCEPT AT (21, 10) VALIDATE (NUMERIC) SI 

ZE (3)BEEP:M2 

1100 IF M2<-99 OR M2>99 THEN 1090 

1110 ACCEPT AT (22, 19) SIZE (2)BEEP:C 

1120 IF C<2 OR C>16 THEN C=2 

1130 ACCEPT AT (23, 19) VALIDATE (NUMERIC) SI 

ZE (2)BEEP:SC 

1140 IF SC<2 OR SC>16 THEN SC=6 

1150 CALL SCREEN (SC) 

1160 IF M=4 THEN S=16 ELSE S=0 

117 CALL CHAR (12 8, A$ (1) , 132, A$ (2) , 13 6, A 

$(3),140,A$(4)) 

1180 CALL MAGNIFY (M) 

1190 CALL SPRITE (#1, 128, 0, 100, 66+S) 

1200 CALL SPRITE (#2, 132, 0, 116+S, 66+S) 

1210 CALL SPRITE (#3, 136, 0, 100, 82+S+S) 

1220 CALL SPRITE (#4, 140, 0, 116+S, 82+S+S) 

1225 CALL MOTION(#l,Ml,M2, #2,M1,M2, #3, Ml 

,M2, #4,M1,M2) 

1230 FOR TM=1 TO 300 : : NEXT TM 

12 4 CALL CLEAR 

1250 DISPLAY AT (22, 1 ): "SPRITE COLOR IS " 

;c$(C) 

1260 DISPLAY AT (23, 1 ): "SCREEN COLOR IS " 
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;C$ (SC) 

1270 REM DISPLAY COLORS DFLT 

1280 0=15 

IF SC=2 THEN GOSUB 1360 

INPUT "MODIFY SPRITE ATTRIBUTES? ": Q 



1290 
1300 
S 

1310 



THEN 1030 



IF SEGS (Q$, 1, 1)="Y" 
1320 CALL DELSPRITE (ALL) 
1330 CALL SCREEN (6) 
1340 0=2 : : GOSUB 1360 
135 RETURN 

13 60 CALL COLOR (0,0, 1,3, 0,1, 4, 0,1, 5, 0,1, 
6,0,1,7,0,1,8,0,1) 
137 RETURN 

1380 REM DISPLAY HEX CODES 
13 90 CALL CLEAR 
1400 FOR 1=1 TO 4 
1410 PRINT : "WINDOW"; I; "HEX=" 

" THEN 1430 ELSE 1440 
AVAILABLE 



1420 IF A$ (I 
1430 PRINT " 



GOTO 14 



50 

1440 PRINT 



" ";SEG$ (A$ (I) , 1, 16) : " " 
";SEG$ (A$ (I) ,33, 16) 



SEG$ 



(A$(I),17,16) : 

SEGS (AS (I) ,49, 16) 
1450 NEXT I 
1460 PRINT 
147 RETURN 

14 8 REM CLEAR CHOSEN WINDOW 

1490 DISPLAY AT (21,1):" PLEASE WAIT." 

1500 IF A$(X)<="0" THEN 1580 

1510 FOR 1=1 TO 16 

1520 FOR J=l TO 16 

1530 IF QQ$="E" THEN 1540 ELSE 1560 

1540 IF G(X,I,J)>0 THEN CALL HCHAR(I+1,J 

+3,105)ELSE 1570 

1550 GOTO 1570 

1560 G(X,I,J)=0 

1570 NEXT J : : NEXT I 

158 RETURN 

15 90 REM WINDOW TO HEX CONV. 
1600 HC$="0123456789ABCDEF" 
1610 CALL SOUND (333, 1110, 1) 
1620 Z1$,Z2$="" 

1630 DISPLAY AT (22,1):" CONVERTING YOUR 

HEX CODE" 

1640 FOR R=l TO 16 

165 CD1=G(X,R, 1) *8+G(X,R,2) *4+G(X,R, 3) * 

2+G(X,R, 4) +1 

1660 CD2=G(X,R,5) 

2+G(X,R, 8)+l 



3+G(X,R, 6) *4+G(X,R,7) * 
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167 CD3=G(X,R, 9) *8+G (X, R, 10 ) *4+G (X, R, 11 
) *2+G(X,R, 12)+1 

168 CD4=G(X,R, 13) *8+G (X, R, 14 ) *4+G (X, R, 1 
5) *2+G(X,R, 16)+1 

16 90 Z1$=Z1$&SEG$ (HC$,CD1, 1) &SEG$ (HC$,CD 

2,1) 

1700 Z2$=Z2$&SEG$ (HC$,CD3, 1) &SEG$ (HC$,CD 

4,1) 

1710 NEXT R 

1720 AS (X)=Z1$&Z2$ 

1730 DISPLAY AT ( 18, 2 ) : SEG$ (Zl$, 1, 16 

;SEG$ (Zl$,17,16) :" ";SEG$ (Z2$, 1, 16) 

SEG$ (Z2$, 17, 16) :"" 

174 RETURN 



. II II 

II II . 
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Formatted Screen 

T his short listing can be used as a subrouti ne i n your programs. Wherever a program accepts i nputs, one 
can GOSUB to this routine and a colored band will appear to the right of the cursor indicating the 
acceptable length of the entry. Entries may appear anywhere on the screen and entry length can be 
control led. This colored entry for mat letstheuser know thelimit of each entry and makes theappearance 
of the program more attractive. 

The routine uses a CALL KEY statement to concatenate key inputs into the variable K$. J ust before 
sendi ng program control to thi s routi ne, set the row and col umn you want the i n put to appear on i nto the 
variables R and C. The length of an entry is assigned to the variable L. Now, GOSUB to the routine to 
accept user input. The back arrow and the ENTER keys may be used to edit during all entries. Pressing 
ENTER accepts an input and returns control back to the main program. The variable K$ now contains 
the user's entry. To savethe user's input for future use, assign K$toan appropriatevariablethatcan be 
accessed later on during the program. 

Example 

100 R= (accept at row) 
110 C= (accept at column) 
120 L=(max. entry length) 
130 GOSUB (routine line#) 
14 ANSWERS=K$ 

100 REM FORMATTED SCREEN 

110 REM CRACKING THE 9 9/4A 

12 CALL COLOR (14, 2, 7) 

130 K$="" 

14 GOTO 250 

150 CALL KEY(0,K, ST) 

160 CALL HCHAR(R,LEN(K$) +6, 142) 

170 CALL HCHAR(R,LEN(K$) +6, 31) 

180 IF ST<1 THEN 150 

190 IF K=8 AND LEN(K$)<2 THEN 130 

200 IF K<>8 THEN 220 

210 K$=SEG$(K$,1, (LEN(K$) )-l) : : GOTO 250 

220 IF K=13 THEN 270 

230 K$=K$&CHR$ (K) 

240 IF LEN(K$)-1=L THEN 210 

250 DISPLAY AT (R, C) : K$&RPT$ (CHR$ ( 143) , L 

LEN(K$) ) 

2 60 GOTO 150 

27 RETURN 
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Horizontal Scrolling 

Thisisaverysimpleroutinethatcan be accessed as a subroutine or inserted in between program code. 
It is short and can be useful for displaying messages when space is limited. 

Before sending program control to this routine, assign to the variable ROW the number of the row on 
which the message is to appear. Next assign the phrase to the vari able PH RASE $. The phrase can be as 
long as can fit when assigning it to the vari able. When running the routine, if the scrolling is too fast to 
read comfortably, insert a FOR N EXT loop or other code between the program lines. 

100 REM HORIZONTAL SCROLL 

110 REM CRACKING THE 99/4A 

120 K=l : : L=28 

130 FOR I=28+LEN(PHRASE$) TO 1 STEP -1 

140 IF L>1 THEN J=J+1 ELSE K=K+1 

150 DISPLAY AT (ROW, L) : SEG$ (PHRASE$,K, J) 

160 L=L-1 

170 NEXT I 

Vertical Print 

This routine allows you to print messages on your screen vertically. Set the variable WORD$ with a 
phrase. Becareful nottolet it exceed 24rows and spaces.The message starts on row one. Thecolumnfor 
display can beset in the variableCOL. I f you want to start on another row, changethe variable ROW= 
in line 120. Besurenot to let the message exceed row 24. 

100 REM PRINT VERTICALLY 

110 REM CRACKING THE 9 9/4A 

12 FOR ROW=l TO LEN(WORD$) 

130 CALL VCHAR (ROW, COL, ASC (SEG$ (WORD$, ROW, 1 

))) 

14 NEXT ROW 




140 



The Cyc: Cracking the 99/4A 



File I/O Assembly routines 

Manipulating disk files in Assembly Language 

Casual users of the 99/4A may never need to use disk files in assembly language. This is because both Tl 
BasicandTI Extended Basiccontain a wealth of support callsfor file handling. Many types of algorithms 
may be implemented using these two languages. 

Care must be used in choosing which algori thms to usedueto the relatively slow process of using a Basic 
interpreter on the 99/4A. Sequential searches should be avoided with long files! Many program 
applications can be coded with an acceptable execution time. 

But what about the person who demands a little performance out of his $100 machine? What about the 
person who is programming games and needs to access records of bitmap mode pattern data, sprite 
pattern data, speech data, and sound data? Basic is much to slow to serve in these capacities. 

Programming in assembly provides the key. A typical instruction on the99/4A takes only a few micro 
seconds to execute. Thus many instructions can be executed very quickly, relative to that of the Basic 
interpreter. But unlikeprogrammingin Basic, theAssemblyLanguageprogrammerisfaced with thetask 
of providing the system services that are provided transparently by the Basic interpreter. 

For file manipulation this means the programmer must be aware of what a PAB is, and how to 
successfully call andusetheROM andGROM routines at his disposal. Certainly the programmer must 
be experienced in 9900 Assembly Language programming! 

Thefol lowing program was developed as oneofthefirst modules in an Assembly Language programming 
arsenal. It is a very simple rendition of file service calls for use by any application. The routines include 
a general purpose file I/O call, which is used to open, read, write, and close a file. A general purpose 
routi ne is included for determining if any errors wereencountered during DSR execution. Three routines 
weredesigned to provide RAM andVDP RAM buffer management. Finally, a routine is included to read 
the file status of a device. 

An appl ication usestherouti nes by i nd udi ng a RE F for each routi nethat requi res access, and also defi nes 
a FCB for each file needed. The Editor assembler is then used to load the file I/O object module into 
memory after your appl ication program. This method is used to speed up development of the appl ication 
program. This is achieved via separatecompi I ation of thefile I/O routines, thus avoiding recompiling the 
file I/O routi nes each time the appl ication program is re-compiled. This also saves printing time, as few 
of us can afford a truly fast printer(or the reams of paper)! 
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TITLE 'FILE 



I/O' 



********************************************* 



-k 


MODULE : 


FILEIO 




* 


* 


PURPOSE : 


Provide file services to 


* 


* 




the 994/A programmer 


* 


* 


AUTHOR : 


Joel Rodriguez 


* 


* 


SITE : 


Austin, Texas 


* 


* 


REGISTERS: 


R0-R2 


Scratch 


* 


* 




R8 


Error return address 


* 


* 




R9 


Feb Base Address 


* 


* 




RIO 


Ram Base Address 


* 


* 


HISTORY : 


Original 12/83 


* 
* 


* 


ALL RIGHTS 


RESERVI 


:d BY AUTHOR 1983 


* 



********************************************* 

DEF IOFLE, FLECHK, GMP, P$VDP, CLRRAM, G$STAT 
RE F VMB W , D S RLNK , VS BR , VMBR 



* General Equates 
* 

REG1 EQU 2 

RETADR EQU 8 

FCB EQU 9 

RAMADR EQU 10 

DSRPTR EQU >8356 



OFFSET OF Rl FROM WP 
R8 = ERROR RETURN ADDR 
R9 = FCB ADDRESS 
R10= RAM ADDRESS 
DSR I/O POINTER 



* IOFLE : Routine to write the file Pab to 

* Vdp Ram, and issue call to the 

* Dsr . 



IOFLE EQU $ 

MOV *R11+,FCB 



ENTRY POINT 



MOV @VDPADR(FCB) ,R0 Write the pab to vdp 

MOV FCB,R1 

AI R1,PAB 

MOV @PABLEN (FCB) , R2 

BLWP @VMBW 

MOV @VDPADR(FCB) ,R0 Format address for dsr 

AI R0,DESCLN 

MOV R0,@DSRPTR 

BLWP @DSRLNK Do file I/O 

DATA 8 

RT Return 
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* FLECHK: Routine to read the file Vdp Pab 

* and report any errors. 



EQU 


$ 


MOV 


*R11+,RETADR 


AI 


RO, STATUS 


STWP 


Rl 


AI 


R1,REG1 


BLWP 


@VSBR 


CLR 


RO 


MOVB 


R1,R0 


MOV 


R0,R2 


SLA 


R0,3 


JOC 


FLEMSG 


RT 





ENTRY POINT 
Store error address 
Add status offset 
Get workspace address 
Add offset to Rl 
Read status into Rl 

Copy status for testing 

Any of 1st 3 bits set 
Yes, go report error 



FLEMSG: Routine to output error messages. 



FLEMSG 


SRL 


R2, 13 


Justify 




SLA 


R2, 1 


make index 


* 


MOV 


SMSGTBL (R2) , Rl 


Load message address 




LI 


R0,>102 


TEMP SOLUTION 




LI 


R2,2 8 


TEMP SOLUTION 




BLWP 


@VMBW 


TEMP SOLUTION 




MOV 


RETADR,R11 




* 


RT 






ERR1 


TEXT 


'Error, file write protected ' 


ERR2 


TEXT 


'Error, in file 


open ' 


ERR3 


TEXT 


'Error, illegal 


file op ' 


ERR4 


TEXT 


'Error, table/buffer overflow' 


ERR5 


TEXT 


** End of fi 


Le ** ' 


ERR6 


TEXT 


'Error, device error ' 


ERR7 


TEXT 


'Error, file type ' 


OHOH 


TEXT 


'Error, programming ' 



MSGTBL DATA M, SG$E-$ 

DATA ERR1 

DATA ERR2 

DATA ERR3 

DATA ERR4 

DATA ERR5 

DATA ERR6 

DATA ERR7 

MSG$E DATA OHOH 
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G$VDP : 
TO CALL: 



RETURNS : 
REGS : 



XFER Vdp ram buffer to ram buffer 
Load RO with fcb address 
Do a BL @G$VDP 
DATA BUFFER 
where BUFFER is the ram buffer address 
XFER count in RO 
RO - Input word count 



G$VDP EQU $ 

MOV *R11+, RAMADR 

MOV R0,FCB 

AI R0,VDPADR 

MOV *R0,R0 

AI RO, COUNT 

CLR Rl 

BLWP @VSBR 

SWPB Rl 

MOV R1,@XFCT 

MOV Rl , R2 

MOV RAMADR, Rl 

AI FCB,PAB+BUFADD 

MOV *FCB,R0 

BLWP @VMBR 

MOV @XFCT,R0 

RT 



ENTRY POINT 

Save ram buffer address 

Save file fcb address 

Get vdp address 
of record count 

Get record count 

Save XFER count 



Get the record 
Return the XFER count 



XFCT 



DATA 



Temp xfer count storage 



P$VDP : 
TO CALL: 



REGS 



XFER ram buffer to VDP ram buffer 
Load RO with fcb address 
Load Rl with XFER count 
Do a BL @P$VDP 
DATA BUFFER 
where BUFFER is the ram buffer address 
RO - Input word count 
Rl - Input xfer count 



* G$STAT : Obtain the file status byte of the Pab. 

* TO CALL: Load RO with Vdp Pab Address 



P$ VDP 


EQU 


S 


ENTRY POINT 




MOV 


*R11+, RAMADR 


Fetch Ram address 




MOV 


R0,FCB 


Store Feb address 




MOV 


Rl,R2 






MOV 


RAMADR, Rl 






AI 


FCB,PAB+BUFADD 






MOV 


*FCB,R0 






BLWP 


@VMBW 


Write Vdp Ram 


* 

* 


RT 




Return 
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REGS 



Do a BL @G$STAT 

On return RO contains the status byte in 

the Msb byte. 

RO - Vdp Pab address/File status 



G$STAT EQU $ 

AI R0,FLESTS 

SWBP Rl 

AI R1,REG1 

BLWP @VSBR 

CLR RO 

MOVB R1,R0 

RT 



ENTRY POINT 

Add file status offset 

Add Rl offset from Wp 
Fetch file status byte 



Return in MSB of RO 



* CLRRAM : Clear ram buffer 

* TO CALL: Load RO with word count 

* Do a BL @CLRRAM 

* DATA BUFFER 

* where BUFFER is the ram buffer address 



REGS 



RO 



Input word count 



CLRRAM 


EQU 


$ 




MOV 


*R11+,R1 




MOV 


R1,R2 




A 


R0,R2 




CLR 


RO 


CLRLP 


MOV 


RO, *R1+ 




C 


Rl,R2 




JNE 


CLRLP 



ENTRY POINT 

Get ram address data 

Format ram end address 

Clear ram word 

End address reached 

No, go do it again 



RT 



***************************************************** 



FCB DORG 



DORG 

PABLEN DATA 

VDPADR DATA 

PAB DATA 0,0,0,0 

BYTE 

N$LEN BYTE 
F$NAM BSS 15 

RSERV BYTE 

RORG 



Length of Pab 

Pab vdp ram address 

PAB 

Length of file name 
File name text 



***************************************************** 
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* PAB BLOCK TO DSR'S 

* 

***************************************************** 

DORG 

OPCODE BYTE I/O OPCODE 

STATUS BYTE DSR STATUS BYTE 

BUFADD DATA DATA BUFFER ADDRESS 

LRL BYTE LOGICAL RECORD LENGTH 

COUNT BYTE XFER COUNT 

RECNUM DATA REL REC NUMBER 

FLESTS BYTE FILE STATUS 

DESCLN BYTE NAME DESCRIPTOR LENGTH 

RORG 
***************************************************** 

Description of the File I/O entry points 

IOFLE This routine writes the PAB to VDP RAM, and issues a call to the DSR. No verification 

of the PAB is performed. 

FLECHK This routine reads thefile PAB status bytefrom VDP RAM. If an error is detected error 

action is taken including returning control of the program to an error address. 

G$VDP Transfers a buffer of VDP RAM to RAM memory. 

P$VDP Transfers a buffer of RAM memory to VDP RAM . 

G$STAT ReadsthefilestatusbyteofthefilePAB in VDP RAM. 

The copy filesFCB/SRC and PAB/SRC contain DORGs which define the offsets of the various elements 
with the data structures. The copy files are handy ways of maintaining some unity of equates among 
various modules. 
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TheFCB copy file contains 

* FCB DORG 

DORG 

PABLEN DATA 

VDPADR DATA 

PAB DATA 0,0,0,0 

BYTE 

N$LEN BYTE 

F$NAM BSS 15 

RSERV BYTE 

RORG 
***************************************************** 



Length of Pab 

Pab vdp ram address 

PAB 

Length of file name 
File name text 



The PAB copy file contains 



PAB BLOCK TO DSR's 





DORG 





OPODDE 


BYTE 





STATUS 


BYTE 





BUFADD 


DATA 





LRL 


BYTE 





COUNT 


BYTE 





RECNUM 


DATA 





FLESTS 


BYTE 





DESCIN 


BYTE 
RORG 






I/O OPODDE 

DSR STATUS BYTE 

DATA BUFFER ADDRESS 

LOGICAL RECORD LENGTH 

XFER COUNT 

REL REC NUMBER 

FILE STATUS 

NAME DESCRIPTOR LENGTH 



Next some background! A PAB (Peripheral Access Block) is a data structure which is used to pass 
information between one's program logic and the ROM DSR routines of the 99/4A. The PAB is 5 words 
long, pi us 1 byte for each character i n thefi le pathname. T hus the PAB for thefi le named "DSK IT E ST " 
is 5 words pi us 9 bytes, or 19 bytes. The PAB must be located in VDP RAM beforeacall to the DSR may 
be made. It is this programming consideration that makes the use of a file I/O module both a code and 
time saver! 

VDP RAM isthat block of memory that is managed by theTMS9918A Video Display Processor chip. This 
chi p was used to cut the costs associ ated with the i nternal hardware memory management architecture. 
It isthechipthat provides all thereasonsl bought the 99/4A. GRAPHICS. But, it is also the cause for 
some not-so-standard programming techniques. That is, the programmer must be aware that he must 
treat VDP memory differently than normal expansion RAM. 
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The requirement for the FCB (FileControl Block) is thus born. The FCB resides in readily accessible 
RAM. It contains the PAB, and also includes two additional words; thetotal length of theFCB and the 
VDP address for the PAB. TheFCB is used to pass data to thefile I/O routines and finally to VDP RAM. 
TheFCB ismoreimportant in conceptthan in implementation details. Readersareencouragedtodevel op 
their own FCBs if needed. 

The major factor in constructing thefile I/O routines isthedecision to maintain the various filePABs in 
RAM, then copying the PAB to VDP RAM each time a file I/O request is made. This allows accidental 
destruction of VDP RAM to occur while assuring that VDP RAM is correct during file I/O. This benefit 
should be obvious to those having attempted Assembly Language programming on the 99/4A! 

If you I ike to optimize, or must optimize the execution speed of the file I/O routines you may choose to 
maintainyourfilePABsin VDP RAM.Thesupportroutineswouldthen indudeprovisionsfor modifying 
single bytes of the PAB on the fly. This approach was not initially coded due to the slightly longer code 
generation cycle, and the uncertain cloud that is telling me I may not need any extra speed! 
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Inspect MERGE file 

And finally I havecoded an example usingthefi lei /Oroutines.Thisexamplewas intended to help provide 
some insight into the structure of the Basic MERGE format; in hopes of finding a key to allow program 
development without the Basic editor. The idea is to allow generation of Basic text files that could be 
converted to Basic program images. The Basic M ERGE filejust happens to be void of tagged object code 
for the interpreter. The elimination of that hurdle was encouraging. 

But, the example clearly demonstrates the use of the file I/O routines. Be forewarned. The logic shown 
heredoes not provide for formatting of records longer than 80 characters, and are lost! But you didnt 
want to look at all of the MERGE file anyway, did you? Also, no attempt was made to for mat I/O to the 
screen, that is best left for your tastes and needs. 

**************************************** 



MODULE : INSMRG 

PURPOSE: Inspect a MERGED BASIC 

PROGRAM FILE 



AUTHOR 

SITE 

HISTORY 



Joel Rodriguez 
Austin, Texas 
Original 12/83 



ALL RIGHTS RESERVED BY AUTHOR 1983 



******************? 





TITL 


' INSPECT 


MERGE FILE' 


* 
* 


DSRLNK Comand 


Equates 


OPEN 


EQU 


>0000 


OPEN FILE 


CLOSE 


EQU 


>0100 


CLOSE FILE 


READ 


EQU 


>0200 


READ RECORD 


WRITE 


EQU 


>0300 


WRITE RECORD 


RESTOR 


EQU 


>0400 


FILE RESTORE 


LOAD 


EQU 


>0500 


LOAD IMAGE FILE 


SAVE 


EQU 


>0600 


SAVE IMAGE FILE 


DELETE 


EQU 


>0700 


DELETE FILE 


SCRTCH 


EQU 


>0800 


SCRATCH REL RECORD 


RDSTAT 


EQU 


>0900 


READ FILE STATUS 



TXTFLE 


EQU 


>0012 


MERGE 


EQU 


>0014 


OPNPGM 


EQU 


>0004 


* VDP Ram Equates 

* 


TXTPAB 


EQU 


>F80 



OPEN TEXT FILE 
OPEN MERGE FILE 
OPEN FILEIO OBJECT 



IMAGE FILE PAB 
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MRGPAB 


EQU 


>FA0 


MSGPAB 


EQU 


>FC0 


TXTBUF 


EQU 


>1000 


MRGBUF 


EQU 


>1100 


MSGBUF 


EQU 


>1200 



TEXT FILE PAB 
MESSAGE FILE PAB 
TEXT RECORD BUFFER 
MERGE RECORD BUFFER 
MESSAGE RECORD BUFFER 



Program equates and data area 



USERWP 


EQU 


>2 0BA 


BUFSTX 


BSS 


>100 


BUF$IM 


BSS 


MOO 


BUF$MG 


BSS 


MOO 


R11SAV 


DATA 





RDCT 


DATA 





WRTCT 


DATA 





LSTREC 


DATA 






PROGRAM WORKSPACE 
TEXT FILE BUFFER 
MERGE FILE IMAGE BUFFER 
MESSAGE FILE BUFFER 
RETURN ADDRESS STORAGE 
INPUT RECORD COUNT 
OUTPUT RECORD COUNT 
LAST RECORD READ FLAG 



* File Control Blocks (FCB) 

EVEN MERGE FILE CONTROL BLOCK (FCB) 

MRGFCB EQU $ 

DATA TAILM-PABMRG 

DATA MRGPAB 

PABMRG DATA MERGE MERGE FILE DSR PAB 

DATA MRGBUF 

DATA MRGLRL, 

BYTE 

BYTE TAILM-MRGNAM 

MRGNAM TEXT ' DSK1 .MERGET/IN ' NAME OF IMAGE FILE 

TAILM EQU $-2 



TXTFCB 



PABTXT 



TXINAM 
TAILT 



EVEN TEXT FILE CONTROL BLOCK (FCB) 

BQU S 

DATA TAILT-PABTXT 

DATA TXTPAB 

DATA TXTFLE TEXT FILE DSR PAB 

DATA TXTBUF 

DATA TXTLRL, 

BYTE 

BYTE TAILT-TXTNAM TEXT 

TEXT 'DSK1.MERGET/OUT ' NAME 

EQU S-l 



FILE PAB BLOCK 
OF TEXT FILE 



Feb equates 



IMGLRL 
TXTLRL 



EQU >0000 
EQU >5000 



MERGE FILE LRL (DSR RETURNS) 
TEXT FILE LRL 
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MRGLRL EQU 163 



MERGE FILE LRL IS 163 



Register Equates 



BASADR 


EQU 


3 


TXTPTR 


EQU 


4 


FCBPTR 


EQU 


5 


BUFPTR 


EQU 


6 


RECNM 


EQU 


7 


REG1 


EQU 


2 



BASE ADDRESS REGISTER 

TEXT BUFFER POINTER REGISTER 

FILE CONTROL BLOCK POINTER 

BUFFER POINTER REGISTER 

RECORD NUMBER REGISTER 

Rl ADDRESS OFFSET FROM WP 



GPLSTS EQU >837C 
HEADER TEXT 'REC#' 



GPL STATUS BYTE 
OUTPUT TEXT STRING 



* Program defs/refs 

■k 

DEF INSMRG 

REF IOFLE, FLECEK, P$VDP, G$VDP, CLRRAM, G$STAT 

EVEN 
************************************************************* 

* Program entry 
************************************************************* 

INSMRG MOV R11,@R11SAV 

LWPI USERWP 
* 

* Open a merged program file 



BL @IOFLE 
DATA MRGFCB 

LI R0,MRGPAB 
BL @FLECHK 
DATA F$EXT 

Open text output file 

BL @IOFLE 
DATA TXTFCB 



Check for errors 
Error recovery address 



LI R0,TXTPAB 
BL @FLECHK 
DATA F$EXT 



Check for errors 
Error recovery address 



* Clear RAM record buffers 



LI R0,>100 
BL @CLRRAM 
DATA BUFSTX 
LI R0,>100 



Clear text buffer 
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BL @CLRRAM 
DATA BUFSIM 
LI R0,>100 
BL 0CLRRAM 
DATA BUFSMG 
PAGE 



Clear Image buffer 
Clear Msg buffer 



Read a merge file record into Ram 



CLR RECNM 

RDREC LI TXTPTR,BUF$TX 

LI FCBPTR,MRGFCB 

LI BUFPTR,BUF$IM 

LI BASADR,READ 
MOVB BASADR, @PAB (FCBPTR) 
BL @IOFLE 
DATA MRGFCB 
* 

LI R0,MRGPAB 
BL @FLECHK 
DATA F$MRG 

LI RO, MRGFCB 
BL @G$VDP 
DATA BUFSIM 
MOV R0,@RDCT 

LI BASADR, RDSTAT 
MOVB BASADR, @PAB (FCBPTR) 
BL @IOFLE 
DATA MRGFCB 

LI R0,MRGPAB 

BL @FLECHK 

DATA F$MRG 
* 

CLR @LSTREC 

LI R0,MRGPAB 

BL @G$STAT 

ANDI R0,>100 

JEQ WRTREC 

SETO @LSTREC 

JMP NXTCHR 
PAGE 
* 

* Format text ram buffer 
* 

WRTREC CLR @WRTCT 



R7 = WRITE RECORD NUMBER 
R4 = @BUF$TX 
R5 = 0MERGE FILE FCB 
R6 = @BUF$IM 



Update fcb to read 



Check for errors 



Xfer record to ram 
Count returned in RO 
Save count 



Change Pab to read status 
Read the file status 

Check for dsr errors 



Go get file status 
? Last record read 
No, go continue 
Set last record flag 
Go process last two bytes 



Clear write byte count 
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LI BASADR, HEADER 
MOV *BASADR+, *TXTPTR+ 
MOV *BASADR+, *TXTPTR+ 
INCT SWRTCT 
INCT 0WRTCT 



MOV 


@RDCT,R0 


CI 


R0,2 


JLE 


NXTCHR 


MOV 


*BUFPTR+,R0 


BL 


0HEXASC 


DATA 


2 


DECT 


@RDCT 


NXTCHR 




CLR 


RO 


MOVB 


*BUFPTR+,R0 


CI 


R0,>2000 


JHE 


HITST 


JMP 


CONVRT 



HITST 



CONVRT 



DATAOK 



ENDBUF 



CI R0,>6EOO 
JLE DATACK 

BL @HEXASC 

DATA 1 

JMP ENDBUF 

MOVB RO, *TKTPTR+ 
INC @WRTCT 

DEC @RDCT 
JNE NXTCHR 



Output 'REC#' 
Bump write count 



Get input count 
? More than 2 bytes 

No, then skip rec process 
Process record number 
Convert two bytes 



Get a byte 
? Ascii lower bound 

Yes, check upper bound 



? Ascii upper bound 

Yes, go write the byte 

Convert byte to Ascii Word 



Write the Ascii character 



? End of image byte stream 
No, continue processing 



Set up Vdp ram, TXTFCB, and write the record 



LI FCBPTR, TXTFCB 

LI BASADR, WRITE 

MOVB BASADR, @PAB (FCBPTR) 



MOV 


FCBPTR, RO 


AI 


R0,PAB+COUNT 


SWPB 


0WRTCT 


MOVB 


0WRTCT, *R0 


LI 


RO, TXTFCB 


SWPB 


0WRTCT 


MOV 


@WRTCT,R1 


BL 


@P$VDP 


DATA 


BUF$TX 


BL 


0IOFLE 



Set opcode to write 

Modify word to byte data 
Set write count in Pab 

Restore count as data word 

Write the ram buffer 

Write the text record 
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DATA TXTFCB 
* 

LI R0,TXTPAB Check for errors 

BL @FLECHK 
DATA F$EXT 

INC RECNM 

ABS @LSTREC ? Last input record 

JEQ RDREC No, process again 

■k 

* Close output file and exit 

■k 

F$EOF 
F$MRG 

LI FCBPTR, TXTFCB 

LI BASADR, CLOSE 

MOVB BASADR, @PAB (FCBPTR) 

BL @IOFLE Close the test file 

DATA TXTFCB 
F$EXT 

CLR RO 

MOVB R0,@GPLSTS Clear GPL status 

MOV @R11SAV,R11 Restore return address 

RT RETURN TO CALLER 

* 

TITL 'SUBROUTINES' 
***************************************************** 

* SUBROUTINES 
***************************************************** 

* HEXASC : Formats decimal values to printable 

* Ascii, and writes Ascii stream to that 

* pointed to by TXTPTR. 

* TO CALL: Load RO with hex data word, byte data 

* data in Msb . 

* BL @HEXASC 

* DATA X where x is 1 or 2 byte conversion 
* 

TOKEN EQU 8 

NIBBS DATA 1 Number of nibbles to convert 

HEXSAV DATA Return address storage 

HEXCHR TEXT ' >' 

HEXASC EQU $ 

MOV *R11+,@NIBBS 

MOV R11,@HEXSAV Save return address 

MOV RO, TOKEN Save token byte 

LI BASADR, HEXCHR 

MOVB *BASADR+, *TXTPTR+ 

MOVB *BASADR, *TXTPTR+ Output ' > ' 

INCT @WRTCT Bump write count 
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LP 




MOV 


TOKEN, RO 


AND I 


R0,>F000 


SRL 


R0,4 


BL 


@ADJUST 


MOVB 


RO, *TXTPTR+ 


MOV 


TOKEN,R0 


BL 


@ADJUST 


MOVB 


RO, *TXTPTR+ 


INCT 


0WRTCT 


MOV 


@NIBBS,R1 


CI 


Rl, 1 


JEQ 


HEXEND 


DEC 


@NIBBS 


SWPB 


TOKEN 


JMP 


HEX$LP 


ND MOV ( 


3HEXSAV,R11 



RT 



Process msb nibble 



Process lsb nibble 



Last nibble 
Yes, then exit 



Restore return address 



******************************************************* 

* ADJUST : Adjust hex nibble to an Ascii byte. 

* Nibble is in bits 4-7 of RO . The Ascii byte 

* is returned as the Msb of RO . 



BAS EQU 
BAS9 EQU 
BASA EQU 
NMASK EQU 
ADJUST EQU 
AND] 
CI 
JGT 
AI 
JMP 
TENADJ AI 
ADJEND RT 



>0900 

>3000 

>3700 

>0F00 

$ 

RO, NMASK 

R0,BAS 

TENADJ 

R0,BAS9 

ADJEND 

R0,BASA 



Compare value 

Increment to Base Ascii '0' 
Increment to Base Ascii 'A' 
Nibble Mask 

Mask unwanted bits 
? Nibble > 9 

Yes, adjust to Ascii 'A' 
Adjust based at >30, Ascii '9' 

and return 
Adjust based at >41, Ascii 'A' 
Return 



******************************************************* 



PAB BLOCK TO DSR's 



DORG 

OPCODE BYTE 

STATUS BYTE 

BUFADD DATA 

LRL BYTE 

COUNT BYTE 

RECNUM DATA 

FLESTS BYTE 



I/O OPCODE 

DSR STATUS BYTE 

DATA BUFFER ADDRESS 

LOGICAL RECORD LENGTH 

XFER COUNT 

REL REC NUMBER 

FILE STATUS 
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DESCLN 


BYTE 







RORG 




* 


FCB DORG 




DORG 





PABLEN 


DATA 





VDPADR 


DATA 





PAB 


DATA 


0, 0, 0, 




BYTE 





N$LEN 


BYTE 





F$NAM 


BSS 


15 


RSERV 


BYTE 
RORG 






NAME DESCRIPTOR LENGTH 



Length of Pab 

Pab vdp ram address 

PAB 

Length of file name 
File name text 



******************************************************* 



The use of I OF LE is straight forward. It is the job of the application to set up and maintain the various 
FCBs.Thecall tolOFLE ismadewiththeaddressoftheappropriateFCB passed as a data item following 
the call. 

BL @IOFLE 
DATA FCBADR 

All good programmers check their external callsfor errors after execution. TheFLECHK routine is called 
by loading RO with the VDP RAM address of the PAB, calling the routine foil owed by an error return 
address data word. 

LI RO, RAMPAB 
BL @FLECHK 
DATA ERRRET 

The details of adding screen I/O to the file I/O routines is left for the industrious. 

To issue a read or a write to the file after you have opened it, just modify the RAM PAB to reflect the 
needed operation and call IOFLE again. 

UsetheCLRRAM routines to clear out any RAM buffers you are using. After all, all good programmers 
initialize their data areas! To use CLRRAM just load RO with the number of WORDS you wish to clear, 
and call the routine foil owed by the data address of the RAM buffer. 

LI R0,> 100 
BL @CLRRAM 
DATA RAMADR 

To get a buffer of data from VDP RAM to RAM memory usetheG$VDP routine. Load RO with theFCB 
address, and call the routine with the RAM address foil owing the call. 
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LI RO,FCBADR 
BL @G$VDP 
DATA RAMADR 

Conversely, to transfer a buffer from RAM memory to VDP RAM usetheP$VDP routine. Load RO with 
theFCB address, load Rl with the buffer bytecount, and call P$VDP with the address of the RAM data 
buffer foil owing the call. 

LI R0,FCBADR 
LI Rl, LENGTH 
BL @P$VDP 
DATA RAMADR 

The status of any file may be obtained bycallingG$STAT.Thiswill tell you if thefileisa program file, 
or atextfile. It will alsotell you if the disk isfull, or thefile is currently at it's last written record. Tocall 
the routine, load RO with the VDP RAM address of thefile, and call the routine. The file status will be 
returned in RO. 

LI R0,VDPADR 
BL @G$STAT 

... END OF TRANSMISSION ... 
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Program order form 

Most of the programs in this book are avail able on diskette. All orders may be sent to: 

Midnight Express Publishers 
Box 26941 
Austin, TX 78755 

The programs completely fill thedisketteand arelisted below. Booksare$12.95, and diskettes are$6.95. 
Add one dollar shipping per book. 

ADDRESS-BASIC TUTORIAL 

CHECK MANAGEMENT/ANALYSIS 

CHRISTMAS BILL BOARD 

CHECKERS FOR 16K 

GRAPHICS GENERATOR 

HANGMAN FOR TWO 

OTHELLO 

PHONETIC SPEECH EDITOR 

SEEK AND FIND PUZZLE GENERATOR 

SPEECH CONTROL PROGRAM 

SUPER CATALOGER 

TANK ABOUT MATH 
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[back cover] 



$12.95 USA 



INSIDE THE BOOK! 



A speech chapter that tells it like it is. 
A game of checkers for 16K. 
A tutorial on logical operators. 
Seek and find puzzle generator— an in- 
finite number of puzzles and you create 
your own word lists. 

A great grafix editor that can display your 
designs and their hex code equivalents for 
an area up to 32x32 pixels (1024 pixels!). 
Take a look inside! 




ISBN 0-917915-00-3 



TEXAS INSTRUMENTS 
HOME COMPUTER 



[text of back cover] 



$12.95 USA 



INSIDE THE BOOK! 

• A speech chapter that tells it like it is 

• A game of checkers for 16K 

• A tutorial on logical operators 

• Seek and find puzzle generator — an in- 
finite number of puzzles and you create 
your own word lists. 

• A great grafix [sic] editor that can display your 
designs and their hex code equivalents for 

an area up to 32 x 32 pixels (1024 pixels. 

• Take a look inside 




ISBN 0-917915-00-3 



160 



The Cyc: Cracking the 99/4A 



Statement of file origin 

This file was created for users of PC99, a TI-99/4A emulator running on an IBM PC. 

"Brian Prothro, 9220-A FM2243, Leander, TX 78641, author of this book, has given 
permission to CaDD Electronics to reproduce the original text in an email from 
<brian@ziponline.com> dated May 9, 2002, 11:22P." 

Whi le every effort was madetoensurethatthetext and graphics content of this file are an accurate copy 
of the original book, CaDD Electronics can assume no responsibility for any errors introduced during 
scanning, editing, or conversion. 

If you find an error, we will attempt to correct it and provide you with an updated file. You can contact 
us at: 

CaDD Electronics 

45 Centerville Drive 

Salem, NH 03079-2674 

Version 20031231 
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